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A^M) «r»>)jg-riHI»ft!!a-C*4o 

^nn-;HI (SI 3 5) ^frfcfcfr*«OigL*yffili, ( 
S 1 3 9) h7Wya>A^i (S 1 3 8) £0Witi1-- t iz X Dfif* 

S 1 4 1) <7)Ii:J;otfx^^F7>f^y3 K*7r^H:tl 
f-i y ? L> iELv^n- KS:m^j1l!|H|£fB"n)ft!.aS:tT=S:oTV/>4o 
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i^iTCLT, ffiftUBrftM 5 0 Ofi, H9T^-t-A^J • fi^^o^A 

i o 2o»o»3a^t»#fflf^s«* j PJ»r-r*o 

[0 0 2 9] 

Sf*ij»fSB 1 5 o o*m9 ^LtzMv^'&mzmmir&iMtimzM i o tc^-r 

o 

IfifiJMU 5 0 OfiUioy- K^-ofoitUL (S 1 5 0 1) , OP 
EN:OJiRE ADJtXliWR I T Erfc^'a tf^3r¥lJSlri~-2> (S 1 5 0 2 ) 0 

mmztLr^zm&tzimv'&mtLxMifcmm r±^u zu^-tz, (s 1 5 

0 3) o RE AVX*^tsWs'kKl l $m<n'&mt Ltll*i« r>5>f^y3^ 
A#J £ffr-5-i-& (S 1 5 0 4) o WR I TE^tSr^-tr^Uf±fi5o^*J^^i* 
1ffg<h LT |>i ^-^F7 >-*f? -> 3 >ffi#J *tt^-fZ> (S 1 5 0 5) e 

ffcpMUl 5 0 0(±, iiLCOsn liZti LTf-x 7 ^ ^PERFORM 
jtT?K*WL-Cv^^*iflJ||fL (S 1 5 0 7) „ DWffi LTv^if^Hti^-colff 
O&tli: LXMMmm r^^jlU (S 1 5 0 8) o 

fpflJIM 1 5 0 0 fi, 1feO«f K*t LT^ftta* P E R F 0 RM^T-Pf 0% L 
T^*$J»r$*L**£-Ktt (S15 10) , Jr<Dm<D'&mt LXMmm \W8k 
%M^y Y n-;id (SI 51 1) o -Oi^ KLT, #«f08:*U: 

[0 0 3 0] 

^i:, ^JBfSPl 5 0 0^V7f>^7'o^7A 1 0 7 KM LXB^M t M 
HI Hi, vyf^^O^yA 1 0 7 <DB<Vffiik*7ji LX ^2> 0 0 9 £ mW. 

izwfi-emttLfz%Lmm*&L, &<D&mt t fc(Dfam%wv?itiirmmt%<?x 

^fcLJffi (S 1 5 7) iih7>f^-/3 >£A;dL (S 1 6 5) „ IBvX* 
7 t J frZXtlL (SI 6 6) , Z\tih<D7*-?Z7tK-g.ffizi> hn-;wi^o* 

*-£^***-£B3^-&^»M£tT&^ (SI 5 9) , 

3- F^riSfffl-r^v^^M (S 1 6 9) t>k<7) h 9 ->3>l/3 - K£ig 
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h7>f^ya (S 1 6 0) tl^c^T^M (S 1 5 9) &H 

^7A10 7(i|l 1 tc^i"li50fl}jtSr^o-ru^o-e, liifijra 1 5 0 0 fid 
[0 0 3 1 ] 

fttfjBfffi 1 5 o otm i o tc^L^fifosffl^^JWri-^aEngiSrig 1 2 tc^ 
i-r\ fiffwwfsui sooit mrnrnt zmjcwtit^v s - y^-^-romm 

L (S 1 5 2 1 ) , 0 PENt, F7>f^>3 >OREADjt, IB^* 
-f;K7)READt, ifvx * y r 4 )V<DR EADJ ^Sr*JWfi"& ( 
S 1 5 2 2) o 0PENt^**^i:ii, %<Dlfa<r>'i9fflb Lt, itRfclfffc l~± 
fttSJ Ztt5-ir2> (SI 5 2 3) o h^mya^WREADWWi: 
l±-£Ofl&K*i5lctiMR rh7>f7ya>A*J £#-5-1" & (SI 5 2 4) 0 IBv 
X^7r^;K7)READt^^i^i:ii> *0»Kjftl*tiMR riBTX^ 7 r>f 
^ATjJ £ft#-f& (S 1 5 2 5) o f^^^7 7^;K7)READt^l)t^ 

K(±-e<agjsKjfei$Mt*R rif^^7r>f/mi*j ttt-^-tz (s 1 5 2 6) 0 

h- 7 >+Fy* y3>77^K if ^77^K IB"7^ ^77^ ;K7)v>i*;ft 
^coixn- K7)^*lJ|ff1-^d fcj&*"C#& (SI 5 2 8) 0 
[0 0 3 2] 

gp^ljra 1 5 0 0 /6 J A7J • f x7 7 7°0 7*7A 1 0 2^77f>^7 p n 
^*7A 1 0 7 H'ov^TfiffO^JWf^tf^o/i^,. Iflm/^&SRl 6 0 0 ^IpOflJ 

i1\ Mttkmt Lt^7 t D7'7A 2 0 0 t^tf)^ 7X4x7)^ V y KSrftO 

«m/^«i 6ooii, zmmitmt 1^7*0^7^2 0 0 
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>7 77C7 T ^^tf^^OttT^ < o 
[0 0 3 3] 

il 3li> Xtl^-x- -^7°d^7A 1 0 2 <h^ai^jy 0 n ^ A 109M> 
^7x-x^7X2 1 0<nttfcmxhz> o 

m 1 4 (i, 7?f > ^*7°U ^*7A 1 0 7tV-h7°D^7Al 04^77^^ 
^ 7X 2 2 0 cW/SEl-C&^o 

mi 3tc^-t<t9u, ^m/^jMn 6 o oi±^&. a ^-7x-a^x 

2 1 0 ^®M^^A7J^ V 7 K (> V y K : d i s p 1 a y S c r e e n) t U 
IM>^77F V y K I u i M a in) jc y^v^F ( ;* V -y 

K : changeMode 1) Tio < 0 

WUH/^ifcgB 1 6 0 0 fi^*6, 77^^7X 2 2 0 tc v -y ^ > ^*M$r 
^ V y K UVf K:updateRecord) fcffco T*3 < 0 
[0 0 3 4] 

-Oct ^ fcflfftLJfflfcfi'fcofclfe, m 1 3 tc^-TJ: ^ JfitB/^JM 16 0 0 
l±, y t-fuy^A 1 0 2 ^^m^n^A l 0 9 rt^r*- * fcttl 

HI, gg&U * v>T T> H»S 5 0 0 OfflO^^'/n^A LX4 

1 6 0 OliV'yf^^O^^ 10 7i:y-h7 , D^7Al 
0 4^<bf-^4im, ^L, 6 0 0 OfflO^J&fS^n^ A t 

LT77^^7^ 2 2 0 &JfltBg£&&!.3£fi : do 

j^tc, iieias/iMi 6 o offi«fflfMi^w^o 

[0 0 3 5] 

• A7J f X777D7"7A 1 0 2 tffi%:&t)y 0 U A 1 0 9 tf» h 4 >^~-7xc 

-X^7^2 1 O^OWtH^m^S 
Ell 3tc^1-J;^iz, Wltii/^mSPl 6 0 0 TttXJjT*. v 9 y? a 1 0 
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2 fce*m*-/Dy^A 1 09H^^>^-7x-^^7X2 1 0 

iftffi/^tftS5 1 6 0 0 (iATJ-f-i 7 ^7°n^'^A l o 2 frhXt}**. v ?<nu 
yy^SrWWL, * > * - "7 ^ -X * 9 * 2 1 0 K#JSft»t&o Jlifcb/^ 
&SM 6 0 0(ilt*tB7j-7°n^'7A l o 9 0»feft^5£«*«iHi U >y--7^ 
-^^7^2 1 0 tcitlo#tt«6o 
[0 0 3 6] 

itB/fM 1 6 0 Ofi, ^i:^t3oon v* y ^o*tfL.#ttn«o%^rwm 
111 Mfx-^yo^yA 1 0 2T1i, F9>-«F* >7r^H 0 1 

'SL-Wtfh&o h 7 >f ^ y a >7 7 ;H 0 1/3 - K^ii 

trn vy flttWtte&o Lfc#ot, HI <7)*tJ£tt »t ^ y * "/n^ 

7A102 H#£L-CV>£: h 5 * y3>77>f/H 0 1 #><b 1/3- K£t%& 
&tr a v* -y * Zm$Lir2>o 

^2Mfx7 77'n7*7A 1 0 2T?«:R*j&A,rt:&U3- FOf-^^f 
j. ^noy*7 &ri s . ^-7x-^77^2 1 0'Ki5HT&£ 

co n v y- 4 #35*** * o 

^?^7>f^ya >7r^f;H 0 3 t:t^fn v-y ^^qf^Lt^fc^, 

4 >^-7x-^77^2 1 0 tCi3V>T(iT ? -^7> ? IELlttL(i>3- K £ "7 T ^ 

;v ^ 7 ^ 2 -2 0 CII. n y y ^ t:Mt -i)'£>S^ ^ o -f&;b£>> "f-^jFIEL 
it fieri/ K-Sr^i y y*v£ h 9 z/*?9 V3>77^H03 tBi"n v y 
y-(i/F^&£ 0 H3co^lS#lt^^A7j^i-y ^^°o^^A 1 0 

2 Kjf&LX^tz?-^ y ?ffi b ?y*f? va >7r^H 0 30^TOi:fx 
•y y*?g h 7 >Hf * ->3>7 7^H 0 3 Ctiffifny^ ^ *&*&U 1/3- K 
£^.x-yy- LTIEUttitf? r -f ^y" 57 2 2 00^ y-y KCjl^i^CtSo 
v y y* 4-tjnx.-2)o 



mSE# 2003-3079649 



#fK 2002-278362 



^-vl 20/ 



[0 0 3 7] 

6 C^to Ell 5 1iA^f-x7^7°n^7A 1 0 2^M>^-7x-x^7^ 

2 1 oo7°o^7A^<7)jsai^^^<7)i¥ffl^m^-r^iii-c*^o mi 6(±^m 

£±}7J7°n 1 09^^>^-7x-X77X2 1 0<7)-7°n^ A-\co^tB 

&a^e»«:SiWi-4iii-e** 0 m 1 5 wm 1 6 n^i-fifcM^fiia 1 3 sona 

1 0 2 OjitB Lg[UC7>75>ti7c7 0 tt ^9 J+%xfrh4 >?-7x-x^7X2 1 0 co 
jltti L^O ? ^ * £73.0^^(7) 77^^^772 2 0 ^<7) >; h 'J J&e&O' 

( 1 - 1 ) C^$tLtl/^ 0 
[0 0 3 81 

^^IHi'WIlCo^t, mi 7<hHIl 8^ffl^Tl^t^ 0 

mi 7ii, A*fx7 7 7 5 o^7/. 1 0 20— a$fc?jc$-ig-e*&o mi 8(4, 
^>^-7x-x7772 i o g^/j^i-m-e^^o 
mi 7(7)fis#-^ (i-i) x7Fztif Z ^T y-7°frhmi 8© (l-i) -e?F 

MfaMlzmW-tZt^ mi 7«L^ (S 1 2 1) ^WPROGR 
AM- ID (SI 2 2) (Dftfrb A? fcJE-Xli fcttlffl U 

Ell 8(0^>^-7x-7,^7X2 1 0 ^Jiffi LSG (S22 1) co^7^ID 
Pi3E*^7.*^IEU I J i: U»^o 

ifc, r/^-7x-X77X2 1 0|*J<7)^!« (S 2 2 2) KgEIRStifc? 
7^^7X 2 2 0K*t1-£';*'v h 'JJ^OlW&t LT, A^x7?7'n 
7*7^ 1 0 2 7)^Wtb Lfc PGE#^**f£EJ i:77^^7^«HWQ 

0X77^^7^ 2 2 0<7)7 7^^*J|At-So 
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* 7 x coi^t? 19 £ ^-rji, m l n o v > x itfetet 0 

[0 0 3 9] 

mi 7t"^tA*fx7 f-fuyj^ 1 0 2<7)7--^^ (S 1 2 3) <7> 

x^m^fftm^i-^o ^wtc(±mi 7^^^n^se#-^ (1-2) ^<b« 
mu mi s<Dr~9U (S223) K^$*ifct2tit#-^ (1-2) izmm-tz 

KH>^-7x-x^7^2 1 0 CO * vX^ifc £ LTfSfcU 
®ffi^^<7)A^?:l^=f- F«:U7 7^^7X2 2 0 Hji* d t ii^ffc 

[0 0 4 0] 

At/ • fx •> ?7°n/7A 1 0 2 0#jR§«|5^c>'f v?-7x-x^ 
7^21 0OX*fx7^77 K£fiPJ£^&£#OMm^&&3Kov>TlftlK 

Ell 9(i, Aytlf x7 77°n^* 7 A 1 0 2 $r^L"0*& 0 HI 2 0 (i 

, O^-7x-X^7^210 OAifx ^ p< V y KCO^M^ h?"7 7. <7)$* 
t><0<D&mLUfr*7FLX^2> o 

mi 3(:*ti:Ti:, X*fx-;^n/5A 1 0 2*>3M*#8B (S 1 2 8) 
(±^T > ^-7 jc-X ^ 2 1 0 <DXt)^-^- v 9 * V y K TchangeMod 
e 1J (S 2 2 7) <0^3*£SBK£&$*i& o #«It:o^TO#ili, m 
1 5<7)fig#^- (1-4) #»<b (1 -8)' Jw^$tLTv^7&*, i^fJMCo 

v^TBll 9 ^13 2 0 Srfflv^T^OAflcWWltbiElftSrSiW-r^o 
[0 0 4 1 ] 

Ell 9tf>#^#g|5 (S 1 2 8) (S 1 2 9) KfBHSfifc^ggff 

(S 1 3 Ort^S 1 3 4) SrWltfiU d OJS&tfJ Lfc3S5R;j&*<b m 2 0 liZT^-TXtf^- 
x7^^V7 KO#ilg|5©±M (S 2 2 8) W®irtS^tit^»l 

«rittWi--5o wmmn^mnfrvmfcvftjiitz^^xtem&Lfztist) 
mm<^m^.Rv i m^:±<Dm^z'D^xit, i-r> HHt^r^^op 
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#SI 2002-278362 



^-v: 22/ 



EN^C (S 1 3 0) S^r^K^CLOSEt (S 1 3 3) ^i^l-T^o 3: tz 
, m%&m? > h n - PERFORMJ ( S 1 3 2 ) ri»<b*fe 0 & LOfg5c 

(UNTILE) Sr*l1l-r&o 7T^^OOPENMO f CLOSEi^iffi 
-f&Ofi, >f >^--7^-^^ 7* 2 1 OX-lZAtJ&WWXft f-i-y^ig 
1/=?- K(i77^^77 2 2 0^ffi#-r&£«!>CT^t&&££>T*&&o 

>k^, STOP RUN. (SI 3 4) HF^D^^^KM^EX 
IT METHOD, ic^^i-^o -ti(iB12 0COS 2 3 8 ilTF^tLTv^o 
[0 0 4 2] 

fifi*-^- d-5) K^Kh^M^m^^xmrn-r^o 



019i:^t, Wl3>fn-ii, (SI 3 5) ^fe*c£ft£JM«rt# 
(SI 3 6. SI 3 7) SrJtttfiU h 7 >f ^ y a ^ ATJ^O P E R F O RMt 
(SI 3 7) £M*1-&o -tUi, >fra^n77AT1iP3-K5:lffL« 
L&VXDTN &<Z> h 9 >"*f * v a > 1/3- Y*\t)-$-Z>'& 1 g:i) t ti:^tzsbX-JbZ>o 
^(nm^z. BI2 0 tCfiS 2 3 1 RZfS 2 3 2 <D fremiti £ ft&o 
[0 0 4 3] 

fig#-^- (1-6) Olffi^Co^t^t^o 
Ell 9 0S 1 3 8t^th7>f ^va >7 7^K7)READJ«L, M 
SfcfflfctTfr&v^ t CONT INUEtCflH^o ^ffl^n^A 

COS 2 3 4 -C^-rgB5K> «fc ^ JcagJft$*L* 0 
[0 0 4 4] 

•&Kftg#-^ (1-7) OMI(:ov>tOftaiM^^t^o 
il9WS13 9-C/Tt^ftftlO|*J, S142<7)MOVE5:, t^fc^, h 
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•r- * z&2>tztt>-?$>z> 0 -eofe*, ^^s^f±H2 oos 2 3 s-cjjrras^ 

[0 0 4 5] 

fSa#-^ (1-8) <?)»itl«l(:owtli|t^o 
iCt?li, H 1 9 COS 1 4 1 IZtjUt h 7 >*f >7 v a >ffi^M^ifli^MI 

t (S143) ^7 7^f;^7^ 2 2 0W7 7f> ?*H$T * V y K^O I N V O 

77^^7X2 2 0<7)V7f->^i^77 V^<D^mtte%>frhx~h2> 0 z. 
0«t ^ tcLT, fftm^mL7c|gm^EI2 0<7)S 2 3 6 KTjtf 0 

S 2 3 7 {±fig## (1-1) \znj&LX9 s ?X<Ol&t>*)<on i \&L*to 
ffiMl^:fMo^f7 7 p ^Ltv^o 
[0 0 4 6] 

IU«J:^:LTitli/Ml 6 0 0li3^7°D^7A 1 0 0tc|E«c$tt 
tzXti^-^ y 7 7 5 0 7*7A 1 0 2 OV-Xrr- ^^^^7*7^2 0 0 fcfl* 



IROAAfxy^n^^A 1 0 2©7-X3- K£EJ2 1 KTjrfo 
\-ft*f-z- y ffu??^ 10 2O7-X3- K^fbfflm/^&SB 1 6 0 0Cio 
Tfljtfi, WSkZfctzJ >9-"7 ^ — KlrJX 2 1 K^i2 2. m 

2 3 C^to -ftz-bh, EI 2 2 0iltr'C^^Xf'7 7 , l (0 0 0 0 0 1 ) a»<b 
HI 2 3 0tftfr"C*4^fy 7° 1 0 0 (0 0 0 1 0 0) iW7-X3-KA«Wl 

02 1, III 2 2, m 2 3i:^t7 p n7*7A(f>, ^teS^fi i^o «t o 
[0 0 4 7] 

•^H, 111 1 6 tC^-r^tB^jyn^^A 1 09^^>^-7x-X77X2 
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1 o^owim, my&MitMWiftit&m-t&o H2 4, 02 scgs^yn^ 

9^7°n^-^A^fSfci-^ 0 12 4«)»lfftf*4^f7yi (0 0 0 
0 0 1) frbM2 5<Of^f-e*^Xf 7/8 4 (0 0 0 0 8 4) JT'OV-^ 

±fe^*/il^J-7 0 n^7 A 1 0 9 KgB«£*i£ftS#-^ (1-25) frhifMfc 

n^aiu hi 8ofi«#-^ (i-2 5) KTr.-rmmm^^y y K^n^i 
i/j, ±iei§*m^^n^^A i o 9<7)iig#^- (i-2 5) u^-rfs^g 

CO rSOURCEfgJ £EI1 8c0fia#^- (1-2 5) Ic^tHffiigO l~T 

uy^u l o 9(i-7X? lxn- Kco^iS &mt) Ltv^^, -r >*-7jl-X7 
7X2 1 0V>mW$t7F* V y K-C(i®M^^ h 5 >-»f* v a ><7>SS %AjJ-?& 

J^TC> -hSeWtb/^mSB 1 6 0 0 ^ > 7'7°a 1 0 7 h v - F 7° 

n^7Ai 04^f>77^v77X2 2 o^^-r&if^sraffi-r&itom^M!! 

[0 0 4 8] 

••77f>^D^5Al 0 7tV-h7°D^7Al 04^^)77^^77X2 

2 0^<7>ttlffl^&8l& 

v 7 f>^7n7*7A I07tv- Y-fuyji* l o 4 ^c^-^-ct 1 
Bl7 , n^A<D77^?7X 2 2 0 £tflHk ^tl.»fti:ov»t^t^o 
Bffi£L£«fc -9 EI 1 4 (i7ifiJtC7j^-rT y^->7*7 0 n^^A 1 0 7 <h V- h 7°n 
7*7^ 1 0 4^Mif-^«ffiU itBL/cf'-^CSoVtvyf >7 
7n^*7A 1 0 7 t/cfiv- F7 , n7*7A l 0 4 ^flUK^i" 7 r >T ^ 

77X2 2 0 *^1-^/j*xC0^-*tS#tt^7KLTv^ o 
[0 0 4 9] 
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-e y^-yffur^A 1 0 7 t V - h 7°n^*7 a l 0 4 £: ><b 4T^7n u 

2 o o %£j&ir&fzfr<D&nfci<z^\;*x<Dm*MMi*nw-fz>o 

£ 0 ifz, V- h-7°n^^A 1 0 475^(il^3- K^r-<7)tflH^ttm-t-^o 
7^f> ^*Mif <7) n v y ^ (i;^(7) 3 o<7)*j-j£ft it <9 ggft-t & 0 
^ 1 {iv y ^ y y-fu 0 7 x. y?-V-Y ffifr ^ v 3 

y~7r4 ;H 0 5^^1/3 - K^f^iiA^v^/^ 77^^7^ 2 2 0 

%2 IZ-ry^yyy'ny? A 1 0 7 Tlivx nn- K -y 7 • v- h 

AF7>f^ya>77^H 0 5 <DU n - K y =f-y ?-tZ> u V y 9 
LX^tzfiK 77^J^7X2 2 0 tc^Tk ^<7)n >? y ?tf£^t 

|3(:v';f>^7'n^7Al 0 7T1i77f >7'L/;ISf > r*- * * s jE L tt 

-tSfl^^^T^oTV^Tt:^ 77^^77^22 OXlir- ?tf]ELlititfti!im\K 

fti*zfccx-?x 9 v^l - YzmmL, ~?7,9-7 t 4 )vzm^&z-z>t^n®m\z 

[0 0 5 01 

±M% 1 ~^3^^)S#ltC^v>. ^m/M^ 1 6 0 0 i£. v 7 f >^7°n 
^'7A10 7-C^ft LTV^TC h 7 ? V 3 >7 t4 )Vfrh 1/3- K^^^J&tf 

ifz, miti/m& 1 6 0 Oli. V7f>7*7"n7*7A 1 0 7 XfefcLX^tz 

miti/^&U 1 6 0 0(i. Vu- K^#§ttli-^^. ilJD (WR I T 

E) , Hfr (REWRITE) , (DELETE) \Z^^ Q 

Y =7 y*f? is ay]/ a - K, -r* 77^^77^2 2 0 &~i3 
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1 0 7 i: v - h^n^7A 1 0 4 iji^^ifi^iaj, £8IU 7r^)^ 

[0 0 5 1 ] 

±ss}4m/^mgR hoocj: w#i^i2 6 2 8 k^i- 0 

i26, @2 7ii, vy^-^yn^A 107^77^^7^ 2 2 0^^ 

jam, li^i^tat^So gi2 8*±, v- y-fuy^u 1 0 4H77 

* 2 2 O^Offltti, m^^tit^^o 02 6 ~H2 8 K^£*i£f£ 

tB/M35 1 6 0 0^g|*lftH'J&S&1f#£ttm^lU 77^^7X220 
[0 0 5 2] 

Jftm/^i&gH 6 0 0 (i, a^^n^A 1 0 0t:«^i/>^f B l7°n7*7^ 

2 o ox£^t%&mm*mm~£.i&Lx&m-$-2>o i- ^>*--7^- 

*?y*2 1 0K#O3oo3!3lt£iitjn-r£ 0 £& 1 <^H^ HiB^'bOATJ^ 
CT^f!l5gt5 7 7^I^So $2(?)^fli, MM^^V -y A73 
?-^y?*yy FZWf-tfiiii-* 4 y^-'-imXh^o H3 O^SttiiSmflTj^ y - y k 

[0 0 5 3] 

^^mLfz^y^-y^y'u^'^A 107O7-73 - K£H]2 9-IH3 1 
tc^-To v-h7*n^7Ai O4oy-^3-K*03 2C^t o $£>K 

, 77^^777N 2 2 0O7 p n7*7A^13 3, [2I3 4H7K1-0 

yn ^ a ^^fitt mzm 14, 126 roth 2 7 soti 2 8 1 mtrnzm 

[0 0 5 4] 

*IiOEi<^tMlA 1 0 0 0&:cfc*U£\ S4>M^3C®^L/c 3*^-7° 
o^7A10 0W7-X3- K^'b^M^SHii^t^^rayn^^ A 2 0 0 
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fz~7°v 9* "7 -U'MUkJt frnkm&m CtiV^^ 1" & -1 1 &X £ & 7t *b , y o ^ ^ 

a *M ^ ^ x£m & m n & 0 

[0 0 5 5 j 

mm n v y ?*mm-$-z>zt &x § ^ 0 

[0 0 5 6] 

ifz, ^n^7A(7)tMf{iftItA 1 0 0 0 H«t oX&WjttiizfttotiZ 
[0 0 5 7] 

-f&m&iz^ ^mvkmzm^x^tz-fuF? A^^m^miz^x i,^mz 

mm X £ h tz *b „ ff tz [z -f u y v a £ wn-f & #3? * ft'MS £ 4 - £ a* T S 

& £ t &X § * o 
[0 0 5 8] 

itz, flll^n^^A^^ryx^ h^|fi]/n ^ a \zm&*Z £ «h 
[0 0 5 9] 

itz, fill7°n^7A^^t7*yx^ hJg|fi)7'n^7At:f^t5Ct(: 
[0 0 6 0] 

HI 1 KUm^titz^-fu ? ? A 2 0 0^f>f^7*n7*7A3 0 0 ^4 

^i-^>'»^«B 2000 \z-D^xmm-fz>o -^«ib 2 0 0 0 \z x (9, 

>™-7 0 n 7*7A2 0 0 ^<tU 7-7x * h*&|p]«j^, flflJO&WKJRKfcLfc ? 9 
^^f>45f^D^A 3 0 0 H^-t^-«h^T-§^ 0 

*1\ fffl7'n^7A 2 0 0 75^f^7°n^*7A3 0 O^yn^Afg&fcff 
T^m^HB 2 0 0 OOrt«5flHRUo^TKWt4o 
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03 5i±^MtB 2 0 0 0(DftUmJ&mi:frZ>o 

XtJU2 1 0 0 1i«tA 1 0 0 0 CJ:ot'M$n/:tF H l7 9 n^7A2 0 
0 Z At}1rZ> 0 

>k\Z, iffi/«2 2 0 0fi\Xt)U2 1 0 0 \Z X o TA7J £ flfc^W/n 7 
7A 2 0 0^>bM^M^itilL, ^1--5>o ti3M2 3 0 0littai/« 

2200 izx^xm&m&zftfcy'uy^^zm&y'uy^i, 3 o o ^ Lrmjj 

-T&o A;W2 10 0, ffljm/^MB2 2 0 0 , tfcl7Jg|$2 3 0 0li-Mt:6Ct 
IB«^2 4 0 0 ^tf^^fS'ISi--?>-<h^-e§^ 0 A;W>2 1 0 OtiA 

# L^P^n^A 2 0 0 £K1I£I$2 4 0 0 Hffi'lti - <£> - «h # S T? § & 0 
ISHgB 2 4 0 0 Li^iB 2 0 0 0 OI*Jg|U-^«-f < , ^ 

g|5ffi'it^S iJffl L T J: v> 0 
[0 0 6 1 ] 

«1B 2 0 0 0CJ: ^P^n^A 2 0 0 4-<t£*--7°n ^ A 3 0 

03 6 ii, MfB 2 0 0 0 IZX-oX-T- ?*i!km<7)J]&tft'<D£d 
*i £ ^ £ H *C h o 

BI<7)^tBiJ(i, f$^7 8 n^7A 3 0 0i:J:^, *f H l7°n7*7A 2 0 0 i^f>t:t 

7£lilJ(7)M^^f ^> fpmy'UVyA 2 0 0 ii-f y*~~7 ^-77 7 72 1 0f7 

7^^^ 2 2 0<h£J#o 0 7£jIiJc0r ? -^<7)^tL^ov^T(i|g3Ol^B^'etf^ 
[0 0 6 2] 

7&tiijOft^7°n^7 A 3 0 0 (i5oo^ 7 X^^i)iotv^ 0 ^frlft^ti 
r/^-7x-^^7X2 1 0^"btf^-^^^3 1 0, MM7 7 73 2 ORtf 

^T)\<7 77 3 3 0 <D 3 0(7)^ 7X^M$tL^. 0 77^^^7X220 

^-b r>a>^7X3 4 0^'i>f ^f^ ^7X3 5 0W2 0(7)^7^^4 
lf^-^X3 1 0 tMM7 7 73 2 0 ^fi^7X3 3 0 tii^7^7> 
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Mtf?5 0 0 0fflfl<7>? 7*-C&&o fcfjt.-* 3 1 0 fiSM^Tjtt 

*fItS^7^-e*S 0 MM 9 7X3 2 Oiik*a-^7X3 1 OCiot 
fl$ni.ili;, tf;^7^3 3 0 i:iotfI^tL^f-^^f*;K7)$i|il 

[0 0 6 3] 

■ty>3>^7^3 4 0 ti>f^f ^77 3 5 0 ^ fi+h -/*#Mg 6 0 0 0 
M<0? ?X"C$>2>o -byy3>^7^3 4 0 JiTX ^l/3-Ktf7 >-f ? *> 3 
> Ixn- K<7)HB-£-£ff -9 77^t$)^ 0 .x>7M7My"7*3 5 0(i-br>3> 
^7X3 4 0»iJ:or^*fen^jH^Ofe**gE1l^^*§atf^fc*«ai- 
& ^7Xt^^o 
[0 0 6 4] 

£<3±-9*#*9*OiM»Kf£o-C\ F7>f^->3 K3 0 3 ^77 

>TT> MM? 5 0 0 0ffilj7)^+h-/s^6 0 0 0 IHOU^tiJg U «t H7vx7 
h * > 9 >f >-{«Mrt^Tit£ t * £ o 

[0 0 6 5] 

^Cf^7*n^7A 3 0 0 fci£>Kfflm/&Jfc*B 2 2 0 O^T^l&fE 

i-r\ «jth/M«2 2 o oiit^n^7A3 o o \z=f>tbft. *) &ts-mm*£. 

yx7 Y^-fuy^Aayy-y-fV- Muffin S -UtT* < „ #*7*cd7 
2 2 0 0 ld\ #77X|:fHWI^^V7F^»), ttfi^Clt 

y y KfcHM^A*^ v * K£tf*f & Q ii7 7X3 2 0 Kfi#J«Hb* y y 
KhUU^f>^V y K£^J&-f& 0 ^^7^3 3 0 KJi^BHfc;* V -y Kfc 
A^fxy^VyKh, Ilf-^WO ^ y y K£ffr£"t& 0 tr>3> 
777,3 4 0 Kti%U8Hb> y y K t F7 ->3>fx7^y y K£ffr£?- 
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l, 0 x>r^ff ^7^350 mitgjJOHfc.* v y KhvT, ^77^ y 
K^7'yf > mif ^ V y K <h £fP)& LT& < 0 
[0 0 6 6] 

>xk, m^/m^U2 2 0 0^17*0^7^2 0 ofrh&m%mm*mm%c 

HL> H^n^A 3 0 0 ££j£1-&!frm;ow-C, S-f\ >f>*--7i-;* 
^7x2 1 Ofrht'j--? 773 1 0, WM7 7 73 2 0S^r*;^7X3 3 
O^Wtli, MH1-&RjfF£MU f OfiC7r^;^7^2 2 0^?)*7yH 
>^7X 3 4 0 tx>T^rO7X3 5 0 h £fflttL htMttt&m^- Z> 

o 

10 0 6 7] 

• >f 2 1 0t>£> 3 o<7)^ 7 7^<7)Mfcftlf 

^>^-7x-X77X2 1 0 7^<b 3 o<7>? 9 X^^tfc-fttt^oi^T 
mB^i-^o Jftttl/^}&g|$2 2 0 0 (2, ^>^-7x-^^7X2 1 OOjfoS 
#Jct)^ ^MMft^A7J<7)&#J^£H>-^ 7* 3 1 O^igO^tt^o 
J*m/^&g&2 2 0 0li, A7J<7)^-^ ^^ITO^f^^XS 3 0 
0 5Ht* o fit, JAffi/ggifcSB2 2 0 Oli, iiif 3 2oo^7X[:Ii)M^ 
^#J^IIf^tB-r»)^M^flJffl^^X3 2 0 ^Jg^t^o 

^±tCf^0^L/l'f >^-7x-X77^ 2 1 0 t^h 3 -D<D 7 7 7^(D^^H^ 

^03 7tC7^i- o tt, ? X^<DMVf#)&t&lhM^&*m3 8 ~EI4 0 K 
7f1- 0 --"C> EI 3 8-IH4 0 ^-C^L^fig^tiUS 7 <9{£g#-§-^*j-j£ L 

tt^o @38liO^-7x-X77^2 1 0<7)-7°tf^A7>*btfxi.-^'5^ 

3 1 0O7 s n^7 ^<DMm^l^m^1i^7^iro !39!H>7-7x-x 

^7x2 1 ofrhmm? 7 73 2 o^o^^tttti^j^&^^i-o H4 0 ti-r 

>^-7x-^77X2 1 Ot^^t^^* 3 3 o^^l£Krtftffi^}£7ar££ 

^i~o 111 3 8 n^-r wttj. m^^m-^^x^/m.^u 2 2 o o £ o 

*kJ&-£tifz¥ ^--7 77 3 1 0<7)| r ^7 , n7"7A(7)y-7>3- K£EJ4 1 > EI 

4 2 U/jti-o f3:e#-^^^^Ht)0-7 0 n^7 AOV-^n- KiMt<7)7' 
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2 2, 0 2 3 H^7F2tiTi/>&75 5 \ :w^>?-7x-X^7X2 1 0<7>7°uy 
^A^KSEIRSftfctfcll*-^ (2 - 1 ) (2-2) (2-3) 41, 1142 

1 0 <7)7°ny^ A^HH^^^n/cfiS*-^ (2-1) (2 
-2) (2-3) <h7&WSott^tLTv^ 0 
[0 0 6 81 

El 3 M^S^S-^^Tfflm/^^2 2 0 0 i:J:oT@ft4 

/&£;ft£?lfIJ#P? 9* 3 2 0<7)7 5 d^7AWV-^3- K£H4 3 H7jxi"o >f y 9 
-7x-X^7X2 1 0 <!: ftflJIW ? 7^ 3 2 0 <h(i, «l*t£> 2 -o<D~7°u 1\<DV 

-x?- yKm^ztitzizmm^ (2-1) (2-4) nio-r^'ftit^^^ 

[0 0 6 9] 

£<?>C, IU4 0^-fffitti, ^«ffit:Io\>tiffi/«2 2 0 0 
T^l^^n^r^? 7X 3 3 0(7)7 o o^7^Wy-^n-K^S4 4, [1 
4 5 H^1- 0 0?-7i-7^772 1 0 t€f>^7^ 3 3 0 <h(±, f£g# 
-^•(2-1) (2-2) (2-5) (2-6) (2-7) (2-8) (2-9) 

la o x ftfc # 1 1 & & £ ti x v 0 

[0 0 7 0] 

• 7r^;^7X2 2 0^f>2 o<7)^ 7;^WJ£^ : Ht 
;£^^ 77^f;V77^ 2 2 0t^ 2o«^7^ (3 4 0, 3 5 0) 
tt(:ov^P^ta o ffltH/^^2 2 0 Olt, 77^^7X 2 2 0 coW?& 
|$-t7V3>77^3 4 0 >x-fx-f?7*3 5 0(020077^ 

Oi^CS^lt^o -T^^*>, 77^^7X2 2 Otli, 7^^77^(0 

n v-y i7 7j ? #ftLTV^7Jo Wtb/«^2 2 0 0 «\ IH^Dyy^-tyy 
3>^7^ 3 4 OKSOfl-tt&o itz, «ffi/ge&8|5 2 2 0 0li, h 9 > 

3 > 1/3- K^lE^CtL-Ctv^ ? 7 7^H: h 9 >^f^ y3>l/3-Kt 
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(ifMIB 2 0 0 OCiottr/a >^773 4 0<7)7'n^*7A(Oy-73 
[0 0 7 1 ] 

_LIEWm/^?&^ 2 2 0 0i:U77^^772 2 0^f)t7y3>^77 
3 4 0S^>f^f^ ^7X3 5 0^<Dnfcftlf%m4 6 ^^i" 0 

77^^77 2 2 0 <Dy°u^fy J±frb~k y ya>^7^3 4 007'n 

9X2 2 0oyn7*7A7j^x>f 0773 5 0 <7)7°n A^m-f & 

fflm/^^2 2 0 0(i. HI4 7 ^^i-«fcti^77r*^*-^v^T, 77^V^ 
9X2 2 0<0:? o n^A7>^j£^&7 ? -*£fflffiU ffltb Lfc-f-* £fflv>T-t 
•y ya>?7^3 4 0O7°D7*7 AClifM^o ^Wj^^ntz-ty v 3 ^ 
^77 3 4 0O7 5 D^7A^@4 9, IU5 0C^t"o 

tfc, Mffi/^l&g&2 2 0 0(i, 1214 8 ^7j^i-fflt±l^m77V£^*-c?v^T, 7 

ffl^U^f'fr^ ^7735 Oco^o^^AUgftlj^m-r^o SlM^ti/c 
x>r^fO77 3 5 0 «7'n ^9A£B5 1~[I]53 tc^f o 
[0 0 7 2] 

±m£.f&Ztlfzm$:-7°W7A 3 0 0(7)5 0(75^9^^^, ^^17^7*7^ 2 

znmuo&mftj&i*. mm»y^U2 2 0 oc^o-ctf&^n&o 

[0 0 7 3] 

$r, mmy^mu2 2 0 o^e^-?9X3 1 o^^nfm^^n^tf -?t& 

mcov>TH]4 1 $:ffl^tW^o 
•#J»Ht^ V y K 

wfflit* v ? v<Dftmt useo7r/7^u mffl?7x<D$}fflit 
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^Wtcti, *y 7 F©f-^^i:WORK I NG- STORAGE SEC 
TION£I£H\ Ifi-f yx£#HB.^&*x7 7£iifl[|-*-* (Xf77'l 

9-2 0) o ^77 Kofl^Hli, ge-f ? >^££j£1-£.Xt- y 7° ( 
7 7 a 2 2-xt7 7°2 3) , i/:IS-f >X? >X*?mt LXUY®?^* 
(Dammit* V 7 Kfcnftfffil-* -r > "7° (7f 77°2 4-7f 7 7°2 5) * iitDi - 
<5> o 

[0 0 7 4] 

itii/M2 2 0 0«^77 3 2 0^iiSO"t**£K:ov>Tia4 

3 *m^xmm-*Zo 

IflWHb^ v 7 K^Wfi LtSE^f y* * yx££j£U B^W^-J yx 
^>7i:g^>7^77t Sro^tfS-X-r y 7£itJn1-&o * /:^f;^77 

3 3 oa>#j»Hfc* KSruwmu h*mi<7>^x;w y^^ee-f y* 
* 7 7vto^if^^f 7 7£ji#n-t-£o 

^fcWKIi, ^77KWf-^IEi:LINKAGE SECTION 3r!xH\ 

5lftotr.*->f y* * ^#bb-t^^t- y ysriatn-r* Ur- 7 7 2 0 - Xf 

772 1) o i/cWORK ING-STORAGE SECT I ON£f£lt, £ 

e>r yx^>x^#Bsi--2>XT- y-7°^^D-t-^ Uf7 7"2 772 3) 
o * y 7 K<*>3M£§*BKii, >a?>x*3\&£Lx$:V%l2>z£*'M: 

ft^)7f 7 7° (Xf 772 4) , aer/xr/X^St^7f 77 (Xr 
7 72 5-7f772 6) , m&W^-J y*?>Xktt4 >*?>xt* 
o^lf^Xf 7 7 (7t 7 72 7 ~7t 7 72 8) , ^f^ ^7X3 3 0 
fb^ y 7 K£DWiB l> IiJi^fiH >7^>X^§5^ >Xi:o^r 
tf^^T-7 7 Uf 7 72 9 7 73 1) , i/i*IJ«^7^ 3 2 0OUI> 

^ y^ y 7 K£0Wmi-*:r 7 7 (7f7 73 2) £ilfln-f&o 
[0 0 7 5] 

iffi/W2 2 0 0^f;^7X3 3 O^diSPi-^^^ov^TIH 

4 4, H4 5 tfflV»TRWt4o 
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^>^i:S£^f yx* yxt&o&tf, le^Ox^^x^M^fit LTIx^i" 

^ffW^ti, ^V'>FW-^t:LINKAGE SECTION ^rlxtt^ 
^l^tfj.-'f >x ^ >x^#BSi-^>x-r y y°£M*Mi^ge-f yx ? yx£# 
W?&*T7~7*Tk1WtZ> Uf y7°2 0 -Xf y 7° 2 2 ) 0 JfcWORKIN 
G-STORAGE SECTION ^rlSlt, gS-f >X * yy£#B3-r£X-r 
v7°£&m-f2> (Xf 77'2 3-Xf 77°2 4) o ^ V -y Ktf>3Mfc§a$Kfd\ fcf 

?:Ift^Xf7 "7° Ut7 7°2 6 -X-f «y y°2 7) , gfi^f yx ? 
taf7 -7° Uf; -7°2 8 -Xt7 7°2 9) , 3lftOlf.i->f >X 7>7tg 
e^>7^>7i^O^(f^Xf 7 7° (7f 7 7°3 0- 7f 7 7*3 1) , 

£^>^^>7s?rIf)Ii:Lt^t^^f-7y (7r77°3 2) £it#n-f& 0 
[0 0 7 6] 

>XK, M&/^&U2 2 0 0^7ya>777 3 4 0 ^iilmi"*^^ov> 
• fcJW'ft* v y K 

^SSfk^ v y Kortf t Ltge-f>7^ yx ££j&u j-y-r 4 t 4 9 x 

3 5 0«|^ V y K£BWtb LTM^Ii<7)-^yx^ x ^>7^ >7^|£ 
-r y7^>7i:o^if\ yx*yx£M01fit Lxm^^b x-r -y yfcjf 

£r##7K*±, ^V7K(7)f-7^(:LINKAGE S E C T I O N £f£lt\ 
M«9litC0ge^ >7v ^ >^ f 7 7*?:jiM^ (7>f77 , l 8~Xx 

7 7*19) o i fcWO RKING — STORAGE SECTION fcgfctt, S 
S>f >7 * yx5r#DS-r^Xr- y •7°Z&1)Q'rZ> Uf 7 7°2 0~Xf77 s 2 1) 
o ^ y y KO^MSE^fflSKW:, I5>f yx^ yxZm'OW.t LXMirZt SrMi" 

^7f7 7* (7\T 7 7*2 2 ) , Ser/7f>7^4St^,7f 77' (77 77* 

2 3 ^7 7 7*2 4) , jn. y 7- * -T -r ? ?X<D®mit* y y KfcOWtfJU M •) 
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U<Dj^>7-4 -r Y y > y 9 y 9 £• @£-r > 9 9 > 9 t^>%lf& 9r y 7° (Xt7 

7'2 7 7°2 6) , t Ttgew >x9>xzm*)mt LTt&fc-t&xry 

-f Uf7 7'2 7) ZfeM-t&o 

• h 7 v a y y 9- V y K 

h 9 v a v 9 9 V y KtCtiJ-^-f^ f^7X 3 5 0 <7)vx ? V 

3 - K#£ ^ x^^yy K £ tftb L , &%:&]E L if tlit \x > 7- -f 7- -f y 9 * 
3 5 OO-^-y^^HfM V -7 KSr^mi-^-r v 7°^^1]Wt^o 

* y y KWf-^^t:WORK I NG-S TOR AGE SEC 
T I ON£f£tt\ j^>-t4 f-<( 9 7*3 5 Q(D^9 9 Ua- RMEt^ y yy y 

• Krt^OJI01i£f&*rt-f &y-r y rf^^M"?* (9-f-y y" 6 1 ~y t- -y y°6 4 

) o y y y Ko^a#ffl5t-t±, ^>r^f^ ^7^35 oco-ry y 

fx-^^Vy K SrPf mfy. t7 7° (Xr7 7°6 7-^f-;7 J 6 8) , £ CI 

7 K^TOfXf7 7° Uf77°69^f77*82) £ii}jn1-&o 
[0 0 7 7J 

ftm^tb/^^2 2 0 0/5 i "x>f^fO7^3 5 0O7°n/7^^3lJD 
-r^,^Hov^TlU5 1 , HI 5 2 £ffiv>Tl&^-r&o 
•»V7 K 

W^7 7 Kortf tit, se-f yy * yy ££j&u «i tt^rM ^ft L 

Iffi{:i^7 7 KOf-^g|Si:LINKAGE SECTION £fjtt?\ M 

^fgogey >yy >y ^#Bs-t^yx-y y^ii^p-r^ Uf^i 7-y-r-y 

7*1 8) o i fcWO RKING — STORAGE SECTION £rl£l7\ |£ 

^ yyy yy «:#IS1"4^"r y7°Zfelmir2> (y f- -y y° 1 9 ~~y rvy y°2 0 ) 0 
^y. y Ko3Mfc§«BKii, HO lit LTge^f yy y yy s-ji-rc <h *lft4 
9y-yf (y-r-yy°2 1) , ge^f>^^>^^t^nxf 77° (7,f7 7°2 
2-yx •;7'2 3) > M0flKg£y > 9 9 > TsZtZTt-t Z> 9t v 7° (9,7- y 7° 

2 4) ^iitp-r^o 

• vy * ix 3 - K^feif- j. y y 9 y y K 
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*<r)*—V?A9 7T 4 1/3- K#ft7 

e^lfttcti, ^V'yKOf-^aCLINKAGE SECTION^ttt, 
5li$:c7)lxr7- K^r-^Mi-^^-r y 7°tl I) m.<7)-? X * ^ 3 - K#fi7 7^^ 

§gmct±, K*-£3ii$:t lt$k»)v7^ U3- m^7y^^mnm 

t LXfeirZ t ^fft^Xr^ 7° (7f 7 7°6 7-7f';7'6 8) > 7X^7 

X^7r>f;v=S:tt*&*-€-Ote**55')fltfc Ltt^t^Xf 7 7° (7f7 7°7 
2 -7xf -7 "7° 7 7) ^iitJPl-^o 
[0 0 7 8] 

-) tatf^f B 2 0 0 0 f i 4 1 FbI ~7°u 5? y A 2 0 0(7)7-73- 
»7n^7A3 0 0W7-73- K£a»3gJfe1-££fcKJ: *K <fc 0 

h^tt<7)ilv^7 0 n 7*7 A C i C J; o t7vx? hrtSBOfl:^ 

HWg&K&i£&v>J: 7 47*0^7 AjWfilKfc *K v-73- K£WfiJfflL-*> 
1-<&& 0 ioT. itei:fc^TM^/:7'D77Afl^MWtH 
HffltSffli- 4 - t ring-Jig £%Zo 
[0 0 7 9] 

A 2 0 0 «t <0 fca&fttt^* -7 F7-7y7fACJ:l) M L^^n ^7 A«afi 
THtf tcgfii^^tL^ftll--7 0 n^7 A 3 0 0K«fc*Uf, it^i/tt&oTv^ 

^ 9 a t l rsf uffl -r & - 1 a* oitg t & £ o 

[0 0 8 0] 

mm<Dfm 2 . 
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{z^y'uv^ A 2 0 0 ^4it3Xf yy°^W^-f\ =i tfjiy'u a l 0 0 
oy-X=r- K#> h "7° n ^* ^ A 3 0 0<7)V-X=r- K£ffl/±}> Wfe-fh 

MitC 3 0 0 o^3,f^7°n^'7A l o Ocov-^rr 
- K^ia^ft^yn^^ A 3 0 0 60V-X3- Ki:MLTv^ 0 CcoJ: ^ 

«1C 3 0 0 0/6 ? gIW;E^**!-ytt^AM&£tf ? i *K ■t'H 

7°o^7i. 2 0 0 ^^Jti-^^Pt^I^lt-f t^IM^^WEB^XML^ 

[0 0 8 1 ] 

300 o<oi*i^t^;Ej-e^^ 0 

IlfeWilimiiA 1 0 0 0OlW*J&£7Fl-[il4 fcjfc^ FW«j£e 

A3 o ot*^ct^ am/i^3 i o ooii^-gm^o-cv^o gp-t, 
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[0 0 8 2] 

110 0 (irr^;i^7°n ^ 7 A10 0 £A7J U IB'ffg[5 1 8 0 0 tcfB'Iti" 
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2 0 O^tU^I" A 3 0 0 Z&jj-f&tztb, 

m * mm k if x. s wEB^xML^^c mm^ § & ftm.m*&m k ig l tz ■? n ^ 

a KJRfff hz\t &X* § £ o 

[0 0 8 4] 

f|i7°o^7A 3 0 0 ^f^n^A 2 0 0 £J£3^f £<h1tit&g#l;i 

m& izmfrtzti- £ # tt jdd z.x&m%mft * mn-r £ -7° n ^ a £ ^ ^mx § 

[0 0 8 5] 

f^7°D^7A 3 0 0 £4>P*H7°n^A 200£java (JBlitjH) 
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[0 0 8 6] 
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[0 0 8 7] 

^) & o 
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llfa7ii4 6C(i < t^l/-f^^vXfA (OS) 4 7, itu? 
7Aff49> 5 0 7& ? ifiHr£*iTv^ o fcrtfU /n^7AS4 9, 7 
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&#&fc>&i/\, 77h')x7i:7r-A'!7X7i:A-K')x7t(Ol^ 

[0 0 9 2] 

[§£BJ!<7>^] 

«fc *tif , IB*co-7°n ^7ASI*Mv^rAt:it£t 

[0 0 9 3] 

ttz, *5km<r>mM<r>m&\z£ii&^ ib^-t-v WZfrtz-fuyj aq><d 

[0 0 9 4] 

* t- a zmmir h z. t # * o 
[0 0 9 5] 

J*^m&t2> z\t%< BfM7°n 77A^ftf^; t ^ § £ c 
[0lOjlIf«RW] 

[HI] 7°uy?^m^&<D—M*7ji-fm'?$>2> 0 

[12] ? 4 >—mmmzm&i-zmx~$>2> 



3] 1 7 7 > - W ^ t > 7 ^ >-fWJMi:f it a @ -ei I) 



4 ] mmwA iooo ort*p**ig-c**o 

[SI 5] n^yof^ 1 0 0^f>4 i ra7°n^7A2 0 0 %m%ir2>) 
fp£^L£ El 

[EI 6] xsFjvfujrjJ* 1 0 0O-^t:^titi*o 

[EI 7] 3*>7*n^7A 1 0 0 &5Hpj-r&«£*L|gt?3>4o 

[m 8 ] #-7°n oaiasrflwr-r *aE^Bi-c**o 
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[1219] At)?-* -j t-fuf^U 1 0 2cO|(j<7)ffig^^i-(ll-e^)^o 

[eii o] &%u<Dm>\zmmir2>iMtim-t:-&z>o 

[gill] 77f>^D^7Al 0 7 0fff<7)f#;g£^-fm-Cab£o 

[12112] ^-li50^*iJ^fiJI»fi-^vrL^El-e*^o 

[Bl 3] At)?-*, v ?-7°uy?,u l 0 2 <h|g^ai^-7 0 n^^ a 1 0 9 <h 

[Hi 4] ~?y?-y 7-?u / § 1 hv-Y-fuy^ u \ o 4 ty r 
^^7x220 wj£0-c&& o 

[016] -7 0 n^^ A<7)ffltB, ^Si^^fi-e^^o 

[EI 1 7] At)?-*- 7^yn7'7A 1 0 2 O— f^^-tEI-e^^o 

[El 18] 0?-7x-7^7X2 1 0 O— gP^^-TEI-e^^o 

[EI 1 9] At)?-*. 7^7°n7*7A10 2 (O-gr^^i-m-r^^o 

[EI2 0] 7* 2 i oo— g&£^i-0-e£>.5>o 

[EI 2 1 ] At)?-* y 9 "7° n^7A 1 0 2 £^1-0-C&3 o 
[EI22] >^--7ai-X^ 7* 2 1 0 £gr*"|g-C*&o 

[02 3] ^>^-7x-^77X2 1 O^^fit^^o 

[EI2 4] IS*tii^-7 0 n^^A 1 0 9 *7ttWrQ*>Z>o 
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[02 7] 7*D^A«, »Pi^^tit*^o 

[02 8] 7*0^7^^, »#i^^tit^^,o 

[02 9] V7f^^7*n^7A10 7^t@t^^ o 

[03 0] *7 7f->7*7°n7*7 A 10 7 ^tlt^^o 
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[03 2] V- h -fur y A 1 0 4 ^^-rHI-e^^o 

[0 33] 77^^^7X2 2 0 <7)-7°o ^9 a Sr^1-m-Cab*e 

[0 34] 77^^7X22 Owyn^^A^tS-CiSo 

[03 5] fMiB 2 0 0 0««I@t*^o 
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^tOI-^ 9* 3 3 0^7°n7*7A^^t@t^^o 
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[0 5 7] a«*^o 
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[12 1] 



-?T-<>^%i :ZM1N.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. &0-^x^fi£jE -KtS^^-y^ 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 

000006 SELECT T 1 - $EW--* ^9 fe^E? t4 
000008 SELECT 0 1 - 

000010 DATA DIVISION. 

000011 FILE SECTION. 

000012 FD Tl - tem^*9felE7y <<Jl>. 



J(i-i)- 



ASSIGN TO SYS010-UT-MT- 
ASSIGN TO SYS020-DA-DK 



(1-2)- 



000013 01 


Tl- 


-*E0 




— K. 


000014 


05 


Tl- 




PIC X(l). 


000015 


05 


Tl- 




PIC X(6). 


000016 


05 


Tl - 




PIC X(30). 


000017 


05 


Tl - 




PIC 9(7). 


000018 


05 


Tl - 




PIC 9(7). 


000019 


05 


Tl - 




PIC 9(7). 


000020 


05 


Tl - 




PIC 9(7). 


000021 


05 


Tl - 


ttAft^-K 


PIC X(5). 


000022 FD 


Ol 




000023 01 


oi- 






— K. 


000024 


05 


Ol - 




PIC X(l). 


000025 


05 


Ol - 




PIC X(6). 


000026 


05 


Ol - 




PIC X(30). 


000027 


05 


Ol - 




PIC 9(7). 


000028 


05 


Ol - 




PIC 9(7). 


000029 


05 


Ol - 




PIC 9(7). 


000030 


05 


Ol - 




PIC 9(7). 


000031 


05 


Ol - 


tfrA^-K 


PIC X(5). 



000036 PROCEDURE DIVISION. 

000037 ^t&m. 

000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 



(1-4)- 



OPEN INPUT Tl-&m~*X?t£jE77<<^ 

OUTPUT 01-&A-**fit$JE'7T'(l'. 
PERFORM fe$v^|iEA^M. 
PERFORM ^&*&H=3>'bn-/U 

untilc^t-oh^t^t^ - V). 

CLOSE Tl -f£ m^xfifeJEyrJ.^ 
Ol - ft j* 3E 7 Wl'. 
STOP RUN. 

000046*************************************************** . 

000047 gt&fem^^hv — ^. xi 

000048 PERFORM ^Wk^Q- 

000049 PERFORM tem^^ffeJE At) fttS. 

000050**********************************************************" 

000051 &#-^X*^jE A^*£JS. T(l"6)- 

000052 READ Tl - &&'**?felE-77'( & 

000053 AT END MOVE V TO 77^^777^ 

000054 END-READ. 

000055********************************************************** 



IS NUMERIC) AND 
IS NUMERIC) 



000056 

000057 IF(Tl-mife*S 

000058 (Tl-^lii 

000059 THEN 

000060 MOVE Tl-tfEff-^^fSFjEUa — K 

000061 TO 01-ftJ£^**<£lEl^ — K 

000062 PERFORM ?-^*y?&^l£&.-**?1£3Etti?J *Q*S 

000063 END-IF. 
000064**********************************************************^ 

000065 ^*y*i&*&J*^**£iEttS;*jftUa. TU 

000066 WRITE Ol - 3E&^:**tejEU=» — K. 1 

000067 END PROGRAM ftffi-^*^ jE - A^l 
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^r-f/t-^tZMULCBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. feB^WfejE UI INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. / j . % 

000007 CLASS ?£0-^X*<iJaE FILE IS 'ZMFL' 1 

000008 IDENTIFICATION DIVISION.- 

000009 CLASS-OBJECT. 

000010 DATA DIVISION. 

00001 \tt*^******1r&1c&*tt**c&*tt 

000012* f^^fk 



T«-(l-l> 
1(2-1)- 



■■•r 



0000 1 3***^^^^^*^*^^***. 

000014 WO R K I N G-STO RAGE SECTION. 

000015 01 Tl - tiMr***fe1E — K. 



*** 



000016 05 T1-&3H*# PICX(l). 

000017 05 Tl— iSnri^— K PIC X(6). 

000018 05 Tl-ffi&£ PICX(30). 

000019 05 Tl-miteSfi PIC 9(7). 

000020 05 Tl-^I^S PIC 9(7). 

000021 05 PIC 9(7). 

000022 05 Tl -&mtEMm PIC 9(7). 

000023 05 Tl -ttA5fe=<— K PIC X(5). 

000024 01 j^T^7^ PIC X(l). 

000025 PROCEDURE DIVISION. 

000027* F7*?MyY 
(X) 0028******************* ****** 

000029 IDENTIFICATION DIVISION. 

000030 METHOD-ID. 'display Screen'. 
00(X)3 1****************************** *******- 



<-(l-2) 
(2-2) — 



"(2-3)- 



000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 



DATA DIVISION. 
SCREEN SECTION. 
01 

05 LINE 3 COLUMN 10 VALUE 'mmiZfr : _\ 

LINE 3 COLUMN 24 PIC X(l) TO Tl 

LINE 4 COLUMN 10 VALUE 'jgj&^-K : '. 

LINE 4 COLUMN 24 PIC X(6) TO Tl - jSiSia— K. 

LINE 5 COLUMN 10 VALUE : 

LINE 5 COLUMN 24 PIC X(30) TO Tl 

LINE 6 COLUMN 10 VALUE '^£0§ : '. 

LINE 6 COLUMN 24 PIC 9(7) TO Tl -^,£^1;. 

LINE 7 COLUMN 10 VALUE '31^1; : \ 

LINE 7 COLUMN 24 PIC 9(7) TO Tl - 3 1 ^ Sr. 

LINE 8 COLUMN 10 VALUE : \ 

LINE 8 COLUMN 24 PIC 9(7) TO Tl 

LINE 9 COLUMN 10 VALUE f £iMEJ** : '. 

LINE 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



9 COLUMN 24 PIC 9(7) TO Tl -£J£ftJM. 

LINE 10 COLUMN 10 VALUE 'f±A5fc^— K: \ 

LINE 10 COLUMN 24 PIC X(5) TO Tl -ft A*=*-K. 
LINE 11 COLUMN 40 VALUE '**T : _'. 

LINE 11 COLUMN 24 PIC X(l) TO WT???. 
PROCEDURE DIVISION. 

DISPLAY &m^x#iwB. 

ACCEPT 
EXIT METHOD. 
END METHOD. 'displayScreen'. 
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000060 IDENTIFICATION DIVISION. 

000061 METHOD-ID. 'uiMain. 
000062***********************************^ 

000063 PROCEDURE DIVISION. 

000064 PERFORM UNTIL (#*7^^ = V) 

000065 INVOKE SELF 'displayScreen' 

000066 INVOKE SELF 'changeModel' 

000067 END-PERFORM. 

000068 EXIT METHOD. 

000069 END METHOD 'uiMain'. 
000070 

00007 1 ********************* 

000072 IDENTIFICATION DIVISION. 

000073 METHOD-ID. 'changeModel'. 
000074*****+******* 
000075 PROCEDURE DIVISION. 

000076 

000077 PERFORM ftNt^^MFjEX/JttA 

000078 PERFORM ^&#L*3>ho— ,i> 

000079 EXIT METHOD. 

000080**** *************************** ***** : 



(2-4)- 



(1-4) 
(2-5)- 



000081 ^^S^>hn— /k 

000082 PERFORM 
000083************************ 

000084 &m*x?miEAt)®*m. 

000085 CONTINUE. 
000087 $£&®M. 



-(1-5) 
(2-6)- 



IF IS NUMERIC) AND 

(Tl-^l^§ IS NUMERIC) 
THEN 

PERFORM ^y9ft&&Mr?**fc'E&ti®m 
END-IF. 



000088 
000089 
000090 
000091 
000092 
000093* 

000094 ^^yfmfr&m^XffejEttiJjmm. 

000095 INVOKE FILE 'updateRecord' 

000096 USING Tl-ftJ^-e^^lEl^-- K 

000097 END-INVOKE. 

000098 END METHOD changeModel'. 

000099 END CLASS-OBJECT. 

000100 END CLASS ]E UI 



r«-a-6) 

1(2-7)- 
-(1-7) 
(2-8)- 



4c************** 



(1-8) 
(2-9)- 



r 



(i-i) 
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Tl 


Xfl"^ — K 




05 


Tl 




PIC X(6). 


05 


Tl 




PIC X(30) 


05 


Tl 




PIC 9(7). 


05 


Tl 


-31 IS ft 


PIC 9(7). 


05 


Tl 




PIC 9(7). 


05 


Tl 


- gigft/Stft 


PIC 9(7). 


05 


Tl 




PIC X(5). 



:2MOT.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. &m^X?&JE-&%:Mjl . 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 

000006 SELECT Tl -fiEf^^77^ 

000007 ASSIGN TO SYS010-DA-DK-S. 

000008 SELECT Ol - ftt}7y<{'l' 

000009 ASSIGN TO SYS020-UR-LP-S. 

000010 DATA DIVISION. 

000011 FILE SECTION. 

000012 FD Tl -Wv^77^ BLOCK CONTAINS 35 RECORDS. 

000013 01 
000014 
000015 
000016 
000017 
000018 
000019 
000020 

000021 FD Ol-tU^I^T^ LABEL RECORD OMITTED 

000022 REPORT IS 1±m-**?V*b. 

000023 WORKING-STORAGE SECTION. 

000024 oi ^r^^T^y^ pic x value 'o*. 

000025 01 W— B H PIC X(8). 

000026 REPORT SECTION. 

000027 RD flE#^**y*h CONTROLS ARE Tl — Sjod^*— K 

000028 PAGE LIMITS 66 LINES 

000029 HEADING 1 

000030 FIRST DETAIL 7 

000031 LAST DETAIL 56 

000032 FOOTING 66. 

000033 oi fem-?x?mm TYPE IS DETAIL. 

000034 05 LINE NUMBER IS 4. 

000035 10 COLUMN 10 PIC X(12) VALUE •ffifln— K: '. 

000036 10 COLUMN 22 PIC X(6) SOURCE Tl -jftfia— K. 

000037 05 LINE NUMBER IS 5. 

000038 10 COLUMN 10 PIC X(8) VALUE *f8iao£: 

000039 10 COLUMN 18 PIC X(30) SOURCE Tl 

000040 05 LINE NUMBER IS 6. 

000041 10 COLUMN 10 PIC X(10) VALUE '^SJgft: '. 

000042 10 COLUMN 20 PIC 9(7) SOURCE Tl - SL&Jfcft. 

000043 05 LINE NUMBER IS 7. 

000044 10 COLUMN 10 PIC X(8) 

000045 10 COLUMN 18 PIC 9(7) 

000046 05 LINE NUMBER IS 8. 

000047 10 COLUMN 10 PIC X(8) 

000048 10 COLUMN 18 PIC 9(7) 

000049 05 LINE NUMBER IS 9. 

000050 10 COLUMN 10 PIC X(12) VALUE 'g*tSft#ft: 

000051 10 COLUMN 22 PIC 9(7) SOURCE Tl - £Jp£ftft. 

000052 05 LINE NUMBER IS 10. 

000053 10 COLUMN 10 PIC X( 14) VALUE 'ttASfe^ — K: 

000054 10 COLUMN 24 PIC X(5) SOURCE Tl -ttAJfc=»— K. 

000055 01 TYPE IS PAGE HEADING. 

000056 05 LINE NUMBER IS 2. 

000057 10 COLUMN 4 1 PIC X(t8) VALUE '*** ft*-^** 1 . 

000058 10 COLUMN 60 PIC X(16) VALUE ***'. 

000059 10 COLUMN 95 PIC X(8) SOURCE W- Ptt. 

000060 01 TYPE IS CONTROL FOOTING Tl -ffi&a — K 

000061 NEXT GROUP NEXT PAGE. 
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VALUE *3l=!aft: 
SOURCE 

VALUE 

SOURCE Tl-»ffi^L. 
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000062 PROCEDURE DIVISION. 
0QO063 ±fam. 

000064 OPEN INPUT Tl-ftSvX^r^ 

000065 OUTPUT Ol - \&t)7r4>V. 

000066 MOVE CURRENT-DATE TO W- 0 tt\ 

000067 INITIATE ftSv^^D^K 

000068 PERFORM ffiJ^-^^T-f /I'ATJ&Jg. 

000069 PERFORM S&^Sffr&^ho— /U- 

000070 UNTIL 4 /VWT"?? if = '1'). 

000071 TERMINATE ^EJ^X^y^K 

000072 CLOSE Tl -ftf 

000073 01-ffl^j7r^A'. 

000074 STOP RUN. 

000075*******************************************************^ 

000076 SS^*^/^:/^— /U. 

000077 GENERATE UM^^BB. 

000078 PERFORM ^EJ^^^r-I^AT^S. 
000079***************************************************** 

000080 te.m-^^^TJ/l'AfjfcM. 

000081 READ Tl-^EJ*-^^7r^ 

000082 AT END MOVE *1' TO 77^/^777^' 

000083 END-READ. 

000084 END PROGRAM miE-l& Mttit). 
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1° 
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3.V 7f >^If 7°D^7A(f I|f|/n^7A) 

z/u^^i^ :ZMUP.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. £E It -v X 9 & jE 

000003 ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT Tl-4*v^^f IE77^^ 
ASSIGN TO SYS010-DA-DK-S 
ORGANIZATION LINE SEQUENTIAL 
SELECT Ml-fifv^;77^^ 

ASSIGN TO SYS030-DA-DK-S 
ORGANIZATION LINE SEQUENTIAL! 
SELECT M2-4Wv^^7r^/l^ 

ASSIGN TO SYS031-DA-DK-S 
ORGANIZATION LINE SEQUENTIAL. 
DATA DIVISION. 
FILE SECTION. 

FD Tl-ft*vX?«E7r^^. 



000004 
000005 
000006 
000007 
000008 
000009 
000010 
00001 1 
00001 2 
00001 3 
000014 
000015 
000016 
00001 7 
000018 01 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 01 
00004 1 
000042 
000043 
000044 
000045 
000046 

000047 



T(i-n) 
l1 



FD 
01 



FD 



05 Tl-ftlE^ 
88 Tl-ilflQ 
88 Tl-jE&r 
88 Tl-Wlffc 

T i — 35 pp 4=i 

ti - gift 

Ti-?ISi 
T 1 - % ft M 

ti- mmtE mm 

Tl - ft A5fc=3 



K 



05 
05 
05 
05 
05 
05 
05 
M 

05 M 1 - iS po 3 * 

05 m i - m & 

05 M 1 - Jli 

05 M 1 - 31 3 ft 

05 Ml- 38 it ,6 

05 M1-1?S«1 

05 Ml-ttAt^-K 



PIC X(l). 
VALUE *1\ 
VALUE '2'. 
VALUE '9'. 
PIC X(6). 
PIC X(30). 
PIC 9(7). 
PIC 9(7). 
PIC 9(7). 
PIC 9(7). 
PIC X(5). 



(1-12) 



K. 

K 



PIC X(6). 
PIC X(30). 
PIC 9(7). 
PIC 9(7). 
PIC 9(7). 
PIC 9(7). 
PIC X(5). 
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05 


M 2 - 


■a a = — k 


PIC X(6). 


05 


M 2 — 


DP ^fe 


PIC X(30). 


05 


M 2 - 




PIC 9(7). 


05 


M2- 


§1 s s 


PIC 9(7). 


05 


M 2 - 




PIC 9(7). 


05 


M 2 - 




PIC 9(7). 


05 


M 2 - 


ft A & = - K 


PIC X(5). 



ttSfiE#2 003-3079649 



#11 2002-278362 



^-v: 30/ 



[1213 0] 



000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071' 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 



WORKING-STORAGE SECTION. 

oi f^*««. TCi-14) 

05 W- b7ls*f{?i/B^*~ PIC X(6) VALUE LOW-VALUE. 
05 W-^*^3f— PICX(6). 
01 -7=7?. 

05 77^177^1 PIC X VALUE '0'. 
05 77^HB-T77/2 PIC X VALUE '0'. 
05 &mi&T77?' PIC X VALUE '0'. 

PROCEDURE DIVISION. 

OPEN INPUT Tl-aE*^^jE7r^ 
Ml-ftf^77^ 
OUTPUT Ma-SEv^r-i'^. 
PERFORM &M-?*?{gjEAtl%±M. 
PERFORM IBftje^^A/Jtta. 
PERFORM W.%J= J ^hv—^#±m 

until (mmmr??? = *n. 

CLOSE Tl-ft*^^jE7r^ 
Ml-M^7r^^ 

M2-fiivX^7/^. 
STOP RUN. 



(1-15)- 



IF (W-h7>-0">3>'=*— = W-^^f— ) 
THEN 

PERFORM &$C&m 
ELSE 

IF(W-h7^^VHV^f— > W-^X^^r— ) 
THEN 

PERFORM vx^fel 
ELSE 

PERFORM h^>1f^v'3>«ka 

END-IF 

END-IF. 



(1-16) 



000085 

000086 IF (W- h^>^^>3>^~ = HIGH-VALUE) 

000087 THEN 

000088 MOVE V TO M^T77^ 

000089 ELSE 

000090 EVALUATE T 1 - I* # 

000091 WHEN T1-M#T 

000092 PERFORM ^0T%±M 

000093 PERFORM grtE^^thtfteM 

000094 PERFORM \BtE&~?*?A?J$&m 

000095 WHEN Tl-fiflRfc 

000096 PERFORM giJR&fcLS 

000097 END-EVALUATE 

000098 PERFORM ffiffi-^^IEA^/^S 

000099 END-IF. 

000 1 00****^**************^*^^****^******^ 
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(3.^^>y~£m^v?7 (2) ) 
ooo 10 1 -?*#®m. 

000102 MOVE Ml-^S^^U-^ — K 

000103 TO M2-fiJ$v^l/3-K. 

000104 PERFORM 0r#0^**tt3*?^*S. 

000105 PERFORM \BtEM^^ Atl^M. 
000106*************************^*^***^^ 
000107 h^-O^a^&ta 



000108 
000109 
000110 
000111 
000112 
000113 
00011 
000115 £#rtoi. 



IF Tl-iH*D 
THEN 

PERFORM il^DiaS 

perform m&m-* ^ttifi&m. 

END-IF. 

PERFORM t£m.-?X*mJEAJ]W!m. 



(1-18) 



000116 
000117 
000118 
000119 
000120 
000121 
000122***= 
000123 ii^JD^m 



MOVE Tl-f8j«Pa£ 
MOVE Tl-^&mM 
MOVE Tl-3l^fi 
MOVE Tl-^tt^ 
MOVE Tl-^WzEJES 
MOVE Tl-f±A^fe=»— K 



TO M2-f&p°p£. 
TO M2-^E0fi. 
TO M2-5I^S- 
TO M2-3£i£,&. 
TO M2-2iip&M. 
TO M2-ttA3fe=»-K. 



(1-19)- 



MOVE Tl-ffip^a — K 
MOVE Tl-j^n D p^ 
MOVE Tl-f&ftfi&fi 
MOVE T1-^|^S 
MOVE Tl-|g&/£ 
MOVE T1-S«MEJSS 



TO M2-fip°p=>-K. 
TO M2-(Sp°d^. 
TO M2-^,?iEEfi. 
TO M2-3I^S. 
TO M2-I^, 
TO M2-gi££E0It 



MOVE Tl-ftA^ — K TO M2-ft K. 



(1-20)- 



000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131' 

000132 ^fe^^^tts^;^. 

000133 WRITE M2— SEtf-e^l^ — K 

000134 INVALID MOVE V TO ^iJ^T77^. 
000 1 35********************^ 

000136 

000137 PERFORM IB?£@L^*?A;>J*&JI. 



000139 tEB^^^lEAti^M. 



(1-21)- 



-22) — 



000140 READ Tl-fiE*«*«jE7T-f/l' 

000141 AT END MOVE V TO 77^/^T77/l 

000142 END-READ. 

000143 IF^r-f^T^Ti/l =V) 

000144 THEN 

000145 MOVE HIGH-VALUE TO W~ h7^ ^gV*— 

000146 ELSE 

000147 * MOVE Tl-iSap^ — K 

000148 TO W-h7V^*>3^— 

000149 END-IF. 

000 1 SO*************************^*** 3 *^** 

000151 IR?£^-^**A7J&JI. 

000152 READ Ml-flEl^^77^ 

000153 AT END MOVE V TO 77^1*777^2 

000154 END-READ. 

000155 IF (77>f^»777^2 = V) 

000156 THEN 

000157 MOVE HIGH-VALUE TO W— 

000158 ELSE 

000159 MOVE Ml-ip p n=^K TO W-^***- 

000160 END-IF. 

000161 END PROGRAM ft*-e^iijE— ^^V^Hfr. 
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(1-24)- 
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:ZMSR.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. ft^-^^^E - y— K 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 



000006 SELECT Tl-jtf v^?§E77^ 

000007 ASSIGN TO SYS010-UT-MT-S. 

000008 SELECT Ol -Sf ^^§17/^^ 

000009 ASSIGN TO SYS020-DA-DK-S. 

000010 SELECT S 1 - «F W77^ 

000011 ASSIGN TO WORK001. 



000012 DATA DIVISION. 

000013 FILE SECTION. 



000014 FD 


Tl 




000015 01 


PIC X(70) 




000016 FD 


Ol 


-ft^-^^^E^r-fA'. 


000017 01 


PIC X(70). 




000018 SD 


SI 






000019 01 


Sl- 




-K. 


000020 


05 


Sl-«ilE^ 


PIC X(l). 


000021 


05 


Sl-iSiD p p=i — K 


PIC X(6). 


000022 


05 


SI 


PIC X(30). 


000023 


05 


Sl-^,ft^S 


PIC 9(7). 


000024 


05 


si-^mt 


PIC 9(7). 


000025 


05 


si-3§&,& 


PIC 9(7). 


000026 


05 


Sl-SPittmfi 


PIC 9(7). 


000027 


05 


Sl-ttA5t=»-H 


' PIC X(5). 



000028 PROCEDURE DIVISION. 

000029 SORT *P fa\~7T^i ^ TQ-9)— > 

000030 ON ASCENDING KEY Sl-SSiPp3 — K ]_ 

000031 USING Tl-ftHv^j^E^T^ 

000032 GIVING Ol -fe^^^^f^E^r^^. 

000033 STOP RUN. 

000034 END PROGRAM £E^-^^E - V— h 
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(1-10) 
_[(2-10)- 



7r^/^ : ZMFL.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. ft&-7**t£jE FILE INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 INPUT -OUTPUT SECTION. 

000008 FILE-CONTROL. 

000009 SELECT Ml-ftl^^^r-f^ 

000010 ASSIGN TO SYS030-DA-DK-I 

000011 ORGANIZATION INDEXED 

000012 ACCESS RANDOM 

000013 RECORD KEY M 1 - ES&=»— K. 
000014 

000015 IDENTIFICATION DIVISION. 

000016 CLASS-OBJECT. 

000017 DATA DIVISION. 

000018********************************************************************* 

000019* fy^&lk 

000020********************************************************************* 

000021 FILE SECTION. 



«- (1-11) 
- (1-9) 

(2-11) — 



000022 FD 

000023 01 



Mi-ftll^^?7r^^. 



000024 


05 


Ml- 




PIC X(6). 


000025 


05 


M 1 - 


^ DO 


PIC X(30). 


000026 


05 


MI- 


m. lifts 


PIC S9(7). 


000027 


05 


MI- 


91 s a 


PIC S9(7). 


000028 


05 


NG 1- 




PIC S9(7). 


000029 


05 


M 1 - 




PIC S9(7). 


000030 


05 


M 1 - 


thA5fc=>-K 


PIC X<5). 



— (1-13) 
(2-12) — 



000031 

000032 PROCEDURE DIVISION. 

000033********************************************************************* 

000034* 

000035********************************************************************* 

000036 IDENTIFICATION DIVISION . 

000037 METHOD-ID. "updateRecord*. 

000038********************************************************************* 

000039 DATA DIVISION. 

000040 LINKAGE SECTION. 

«- (1-12) 
(2-13) — 



"(2-H)- 



000041 01 


Tl 




— K. 


000042 


05 


Tl 




PIC X(l). 


000043 




88 


Tl-iiAQ VALUE '1*. 


00004 4 




88 


Tl-Hfcr VALUE '2'. 


000045 




88 


Tl-tWf£ VALUE '9'. 


000046 


05 


Tl 


— flS on 3 — k 


PIC X(6). 


000047 


05 


Tl 


- iaa* 


PIC X(30) 


000048 


05 


Tl 




PIC 9(7). 


000049 


05 


Tl 




PIC 9(7). 


000050 


05 


Tl 




PIC 9(7). 


000051 


05 


Tl 




PIC 9(7). 


000052 


05 


Tl 




PIC X(5). 



000053 

000054 WORKING-STORAGE SECTION. 



|H £g t£ . 

05 W-h7>1^'>3>*- PIC X(6) VALUE LOW-VALUE. 
05 PIC X(6). 

Vy? . 

05 77^H*777^1 PIC X VALUE '0*. 
05 77^/^777^2 PICX VALUE '0'. 
05 *aSI*T77^ PICX VALUE '0'. 



000055 01 
000056 
000057 
000058 01 
000059 
000060 
000061 
000062 

000063 PROCEDURE DIVISION USING Tl 
000064 

000065 OPEN 1-0 Ml-ftft-?^^77^^. 

000066 PERFORM t£ ft-v * * 0 jE A ft *& & 

000067 PERFORM IB A 73 

000068 PERFORM 5? &r ^ > he — M . 

000069 CLOSE M 1 -ft ft ^ * ^Vyi'^. 

000070 EXIT METHOD. 



-(1-14) 



r 



(1-12) 

(1-15) 
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(6.-7r-Y/P^7^(7>igg§:) 
0000 7 1 ************************************************************ ********* 

000072 MSfr^v ho — /H£gL ^ 

000073 IF (W — by ? -yal/lr — = W-^***~ ) 

000074 THEN 

000075 PERFORM # & 4Q. S 

000076 ELSE 

000077 PERFORM h7^f ? >3y*ft8 

000078 END - IF. 

000079*****************************************************************4**' 

000080 

000081 IF(W-h7>f ^V9> + - = HIGH-VALUE) 

000082 THEN 

000083 MOVE V TO «0 IS **■ T 7 y f 

000084 ELSE 

000085 EVALUATE Tl-J&SE^ 

000086 WHEN Tl-SEfcr 

000087 PERFORM S »f *!I M 

000088 PERFORM »r & * * 9 m J) & M. 

000089 WHEN T 1 — A'l 

000090 PERFORM #J & i& S 

000091 END - EVALUATE 

000092 EN D - IF. 

00009 3****** ********************************************************** *-* r ** < 

000094 h7>1f £ *>a . 

000095 IF T 1 — ifl/JO 

000096 THEN 

000097 PERFORM i£ *W & 21 

000098 PERFORM it »fl #r & * * 9 Hi ^ & & 

000099 END-IF. 

000 100** ************************************************************ ****-*.** 

000101 £!I?t*M 
000102 
000103 
000104 
000105 
000106 
000107 



(1-16) 



(2-14 



(1-17) 



MOVE Tl - fS&£ 

MOVE Tl - ££lfeft 

MOVE Tl - 91 3 ft 

MOVE Tl-36tt^ 

MOVE Tl-lJl6flElti 



TO Ml-jSon*. 

to mi - nts.rn.rn. 

TO Ml-313*. 
TO M 1 - 

TO Ml- Smftltft. 



(1-18) 



(1-19) 



000110 
0001 1 1 
0001 12 
000113 
0001 14 
0001 15 
0001 16 



MOVE Tl — 35 & — K 

MOVE Tl - flS&«p 

MOVE Tl - ^fiEIfci 

MOVE Tl - SI S ft 

MOVE Tl~56i£^ 

MOVE Tl- gigft ft ft 



MOVE Tl-ftAftn-K TO M 1 - <± A 5fc => - K . 
000108******************************************************************** 

000109 mtnVkm. 

TO Ml - ifimi3 — K. 
TO Ml-jS£^. 
TO M 1 - ^LtZfc ft. 
TO M 1 - 51 ^ ft- 
TO M 1 - 

TO Ml— s mi£&&. 

MOVE Tl-ftA5fc=* — K TO Ml - ftA jfe^-K. 
0001 17******************************************************************,*.* 

000118 mMm&m-? ^rmx&m . 

0001 19 WRITE Ml - 

000120 INVALID MOVE '1' TO 45®^T77^. 

00012 1 ******************************************************************** 

000122 Ur?£ ffe-^**ttl;/) feS. 

000123 REWRITE M 1 - 

000124 INVALID MOVE T TO <&S»T77^. 
000125******************************************************************** 

000126 fltlPfc*5l£. 

000127 DELETE Ml - £ I* ^ * * U — K 

000128 INVALID MOVE 'TTO «L1»777.^ 

0001 29 ********************************************************** ********f*_ 

000130 lEA^teS - 

000131 MOVE Tl-ifiS^-K 

000132 TO VF - Yy> *F 9 > x> *c — Ml — 35 on ^ — K 

0001 33 ********************************************************** *********> 
000134 IB^Effc^^A^fciffi 



(1-20) 



<*** 

r 

>**; 

r 



(1-21) 



(1-21) 



-22) 
-23) 



READ M1-75*^^^^T^A 

INVALID MOVE 'l' TO 77^/^777^2. 
IF (7 7 ^»T77^2 = V) 
THEN 

MOVE HIGH-VALUE TO — 
ELSE 

MOVE Ml-i$i&=J-K TO W- 

END-IF. 

000143 END METHOD 'updateRecord '. 

000144 END CLASS-OBJECT. 

000145 END CLASS **&TE FILE. 



000135 
000136 
000137 
000138 
000139 
000140 
0001 41 
000142 



<- (1-24) 



I- 



(1-10) 
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.310:t'a.— 



(2-1) 



areas 



lControllen75^<£>y*"i'hy*s^ 




(2-0- 



^y>>K 'changeModel' 
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r 



-(2-1) 



^T-tV^iZMVl.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. ft* -e**<S?IE view INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. t<_ /o.i) 

000007 CLASS ffiJS^^ IE controller IS 'ZMCNV ^ 
000008 

000009 IDENTIFICATION DIVISION. 

000010 CLASS-OBJECT. 

000011 PROCEDURE DIVISION. 
000012************************************* 

000013* ^^-yy^K 

000014********************************************************************* 

000015 IDENTIFICATION DIVISION. 

000016 METHOD-ID. Create'. 

000017********************************************************************* 

0000 18 DATA DIVISION. 

000019 WORKING-STORAGE SECTION. 

000020 01 W-&m^X?{£lE view OBJECT REFERENCE SELF. 

000021 PROCEDURE DIVISION. 

000022 INVOKE SELF 'CBL-NEW' 

000023 RETURNING W-&*-^^IE view. 

000024 INVOKE SbJt-^^IE controller 'create* 

000025 USING W-fiE*^^^IE view. 

000026 EXIT METHOD. 

000027 END METHOD 'create'. 

000028 END CLASS-OBJECT 
000029 

000030 IDENTIFICATION DIVISION. 

000031 OBJECT. 

000032 DATA DIVISION. 

000033********************************************************************* 

000034* -f>X?>^& 

************************************ 



000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 



WORKING-STORAGE SECTION. 
01 Tl-&m-?x?1£lEU^— K. 



05 Tl-#Lg[*:5> 

05 Tl — fffipD^^-K 

05 TI-fSp'p* 

05 Tl-^ffi/m* 

05 T1-3IS* 

05 Tl 

os Ti-mm^mm 

05 Tl-ttA&^-K 



PIC X(l) PROPERTY NO SET 
PIC X(6) PROPERTY NO SET. 

PIC X(30) PROPERTY NO SET. 

PIC 9(7) PROPERTY NO SET. 

PIC 9(7) PROPERTY NO SET. 

PIC 9(7) PROPERTY NO SET. 

PIC 9(7) PROPERTY NO SET. 
PIC X(5) PROPERTY NO SET. 



01 mT?7? PIC X(l) PROPERTY NO SET. 
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(7. If a— 

000047 PROCEDURE DIVISION. 

000049* -O^^-^V^K 
000050*************** 5 * 

000051 IDENTIFICATION DIVISION. 

000052 METHOD-ID. 'displayScreen* 



******* 



******* 



000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 



DATA DIVISION. 
SCREEN SECTION. 



■(2-3) 



01 



05 LINE 3 COLUMN 10 VALUE 't&M&ft : _'. 

3 COLUMN 24 PIC X(l) TO Tl 

4 COLUMN 10 VALUE *fSpp=»— K : 

4 COLUMN 24 PIC X(6) TO Tl-SfiB=»— K 

5 COLUMN 10 VALUE : 

5 COLUMN 24 PIC X(30) TO Tl-Sfn^*. 

6 COLUMN 10 VALUE 'IftffiJK 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



6 COLUMN 24 PIC 9(7) TO Tl -3H£JtS. 

7 COLUMN 10 VALUE '313* : 

7 COLUMN 24 PIC 9(7) TO T1-3IMS*. 

8 COLUMN 10 VALUE : 

8 COLUMN 24 PIC 9(7) TO T1-16QM. 

9 COLUMN 10 VALUE 



9 COLUMN 24 PIC 9(7) TO Tl 

LINE 10 COLUMN 10 VALUE '{±A5fc^— K: \ 

LINE 10 COLUMN 24 PIC X(5) TO Tl - ftA^— K. 
LINE 11 COLUMN 40 VALUE l&T : _\ 

LINE 11 COLUMN 24 PIC X(l) TO feT???. 
PROCEDURE DIVISION. 

DISPLAY fiftv^ai. 
ACCEPT 
EXIT METHOD. 
END METHOD. 'displayScreen'. 
END OBJECT. 

END CLASS &f$L-?*'?t£JE view. 
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r 



(2-L) 



r 



^r^^:ZMCN.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. £E^**I£IE controller INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. T< __ ( . 

000007 CLASS t£M^*9i£'iE view IS 'ZMVl'. I* ^ i} 

000008 CLASS &J$-ex*l£lE model IS 'ZMMD'. 
000009 

000010 IDENTIFICATION DIVISION. 

000011 CLASS-OBJECT. 

000012 PROCEDURE DIVISION. 

0000 1 3***********************************^^ 

000014* tv^-MvY 

0000 1 5*********************** ********************************************** 

000016 IDENTIFICATION DIVISION. 

000017 METHOD-ID. 'create*. 

000018************************************^ 

000019 DATA DIVISION. 

000020 LINKAGE SECTION. 

000021 01 L-?£!5£-^^iE view OBJECT REFERENCE IE view ONLY. 

000022 WORKING-STORAGE SECTION. 

000023 01 W-T£^-e*^f£lE controller OBJECT REFERENCE SELF. 

000024 PROCEDURE DIVISION USING "L-tSM^^feTE view. 

000025 INVOKE SELF 'CBL-NEW' 

000026 RETURNING W &iE controller. 

000027 SET O-feffc-^^TE view OF W-£^-^*^*f IE controller 

000028 TO L-$EM-*X?i£lE view. 

000029 INVOKE %E&-?'X?i£iE model create' 

000030 USING 0-?£ffi-^*?4£lE view OK W -&&-**?i£jE controller 

000031 RETURNING 0-&&.-*X?&iE model OF W-£^***£IE controller. 

000032 INVOKE W- t£M-*?*9fel£ controller 'uiMain'. 

000033 EXIT METHOD. 

000034 END METHOD 'create'. 

000035 END CLASS-OBJECT. 
000036 

000037 IDENTIFICATION DIVISION. 

000038 OBJECT. 

000039 DATA DIVISION. 
000040************************** w 
000041* «i^*9^?Jg& 

000042************************************************************ **************************** 

000043 WORKING-STORAGE SECTION. 



- ($M--*^fe~S- controller. 
0-$Em-s*?&lE view OBJECT REFERENCE £l£^*?lf IE view ONLY PROPERTY. 
O- HM~?^i% jE model OBJECT REFERENCE tSM^^9^1SL model ONLY PROPERTY. 



000044 01 O- 

000045 05 

000046 05 
000047 

000048 PROCEDURE DIVISION. 
000049**************************^ 
000050* A^^9^^^yY 
000051**************************^ 

000052 IDENTIFICATION DIVISION. 

000053 METHOD-ID. 'uiMain'. 



000055 PROCEDURE DIVISION. 

000056 PERFORM UNTIL {f&T77? OF O-^Eft^^jE view = V) 

000057 INVOKE O 9 &iE view 'di splay Screen' 

000058 INVOKE O 9 model 'changeModel' 

000059 END-PERFORM. 

000060 EXIT METHOD. 

000061 END METHOD 'uiMain'. 

000062 END OBJECT. -r> 

000063 END CLASS ftMr?^9\$7E controller. 



-(2-4) 



-(2-1) 
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~774 :ZMMD.CBL 

000001 IDENTIFICATION DIVISION. -p f . 

000002 CLASS-ID. fc^^^jE model INHERITS CBL-BASE. I «- U U 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 CLASS fE.f$L^^ J ?ti£iE view IS *ZMVI\ T«— (2~1) 

000008 CLASS £^^:*^IE session IS 'ZMSS\ J_ 
000009 

000010 IDENTIFICATION DIVISION. 

000011 CLASS-OBJECT. 

000012 PROCEDURE DIVISION. 

000013**************************************************** 
000014* 'S^^-MyY 

000015********************************************************************* 

000016 IDENTIFICATION DIVISION. 

000017 METHOD-ID. 'create*. 

000018********************************************************************* 

000019 DATA DIVISION. 

000020 LINKAGE SECTION. 

000021 01 L-&m-?*?&JE view OBJECT REFERENCE &m^?X*&JE view ONLY. 

000022 01 L-£^*^jE model OBJECT REFERENCE SELF. 

000023 WORKING-STORAGE SECTION. 

000024 01 W-ft^^i^iE model OBJECT REFERENCE SELF. 
000025 

000026 PROCEDURE DIVISION USING L- t£&.-?*9&jE view 

000027 RETURNING L - ^EM^^^IE model. 

000028 INVOKE SELF 'CBL-NEW' 

000029 RETURNING W-ffiSt-e^^jE model. 

000030 SET 0-&M^*?4£JE view OF W-^E^^^^^jE model 

000031 TO L-H.M'rXf&jE view. 

000032 SET L-ft^^^i^lE model TO W-fe^^^^iE model. 

000033 EXIT METHOD. 

000034 END METHOD 'create'. 

000035 END CLASS-OBJECT. 
000036 

000037 IDENTIFICATION DIVISION. 

000038 OBJECT. 

000039 DATA DIVISION. 

000040********************************************************************* 

000041* -r v^^asc 

000042********************************************************************* 

000043 WORKING-STORAGE SECTION. 

000044 01 Tl-iSElS^^^iEU^— K. |«— (2-2) 

000045 05 T1-ME5) PIC X(l). 

000046 05 Tl — [Siop^ — K PIC X(6). 

000047 05 T1-iSpU PICX(30). 

000048 05 Tl-m&mm PIC 9(7). 

000049 05 Tl-?mi PIC 9(7). 

000050 05 T1-!E2£,& PIC 9(7). 

000051 05 PIC 9(7). 

000052 05 Tl-ttA*=i-K PIC X(5). 

000053 01 0-&m^X*mjE. view OBJECT REFERENCE &ffi.^X*(£TE view ONLY. 

000054 01 O-fiEfc^^ttFjE session OBJECT REFERENCE £^**^IE session ONLY. 
000055 
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000056 PROCEDURE DIVISION. 

000057************************************************** 
000058* 

000059********************************************************************* 

000060 IDENTIFICATION DIVISION. 

000061 METHOD-ID. 'changeModef. 

000062********************************************************************* 

aaaa/xi nr%*-\r*>r~>r\t IDC nn/lCIOM 



(2-5) 



-(2-6) 



(2-7) 



(2-8) 



000063 PROCEDURE DIVISION 

000064 £*£3S. 

000065 PERFORM tiM^^ A# 

000066 PERFORM ^fe^M^^hv — 

000067 EXIT METHOD. 

000068********************************************************* iL 

000069 ^te^S^b^ — 

000070 PERFORM ^&*0«. 

000071 PERFORM ?t^-^X^A^J^^. 

000072****************************** **************************** 

000073 ft*^X^A*J*£JI. 

000074 INVOKE SELF 'moveFromView'. 1 
000075********************************************************** 

000076 &&&m. 

000077 IF (Tl -^^1: IS NUMERIC) AND 

000078 (T1-3I^S IS NUMERIC) 

000079 THEN 

000080 PERFORM f- jiy^^ffiS^^EttW&SI 

000081 END-IF. j_ 
000082**********************************************************- 

000083 ^*-x*»*ft«^*«inEfflAtt«. <-(2-9) 

000084 INVOKE ?£^-e;*^{gIE session create' 

000085 RETURNING O- ?t0"^^^iE session. 

000086 INVOKE O— ffiff-^^^iE session 'checkTransaction' 

000087 USING Tl -ftJB^^tfjE^ 3 — K. 

000088 END METHOD 'changeModef. 
000089 

000090********************************************************************* 

000091 IDENTIFICATION DIVISION. 

000092 METHOD-ID. 'moveFromView*. 

000093********************************************************************* 
000094 PROCEDURE DIVISION. 



000095 MOVE ~X\-%MWt} 

000096 MOVE Tl-Bft^ — K 

000097 MOVE Tl-jSJa* 

000098 MOVE Tl-^tEMM. 

000099 MOVE Tl~3!^2 

000100 MOVE Tl~$&&& 

000101 MOVE Tl-S^?SffiS 

000102 MOVE Tl-tfcASfe 3 — H 

000103 EXIT METHOD. 

000104 END METHOD *moveFromView\ 

000105 END OBJECT. 

000106 END CLASS tiM^^Zfe^- model 



OF O— ffift-^**4£jE view TO Tl 
OF 0-ffiK^**ttjEviewTO Tl~ 
OF 0-&m^**&lE view TO Tl 
OF 0-ffi#-^**ttIEviewTO Tl 
OF 0-ffi«^***£iEviewTO Tl 
OF 0-fiE»^**«5EviewTO Tl 
OF O-ffi^^^iEviewTO Tl 
OF 0-&A^X*i£jE view TO Tl- 



-sis*. 

-f±A5fe^-K. 
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^T^^S:ZMSS.CBL 

000001 IDENTIFICATION DIVISION- T< _ ( . 

000002 CLASS-ID. feff-^^^^lE session INHERITS CBL-BASE. I *~~ W 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. T*— (2~10) 

000007 CLASS tEWrvKffelE entity IS 'ZMEN\ J_ 

000009 IDENTIFICATION DIVISION. 

000010 CLASS-OBJECT. 

000011 PROCEDURE DIVISION. 
000012*************************************^ 
000013* ^^-^y^K 

000014*************************************^ 

000015 IDENTIFICATION DIVISION. 

000016 METHOD-ID. 'create'. 

000017 DATA DIVISION. 

000018 LINKAGE SECTION. 

000019 01 L-ftJfc-^^fKE session OBJECT REFERENCE SELF. 

000020 WORKING- STORAGE SECTION. 

000021 01 W-flE«-^*<£:E session OBJECT REFERENCE SELF. 

000022 PROCEDURE DIVISION RETURNING L-fiE#-^**4£lE session. 

000023 INVOKE SELF 'CBL-NEW' 

000024 RETURNING W-ft*-^**<£iE session. 

000025 INVOKE entity 'create' 

000026 RETURNING 0-tEM^?X*&JE entity OF W-ft*-^^^IE session. 

000027 SET L-ft^-^^IE session TO W-ftK^^^IE session. 

000028 EXIT METHOD. 

000029 END METHOD 'create'. 

000030 END CLASS-OBJECT. 
000031 

000032 IDENTIFICATION DIVISION. 

000033 OBJECT. 

000034 DATA DIVISION. 

000035***********************************^ 
000036* 4^*9>*9Bk 
000037****************************^^ 

000038 WORKING-STORAGE SECTION. 

000039 01 0-?5E^**^IE entity OBJECT REFERENCE ftflE-s^tflE entity ONLY. 
000040 
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000041 PROCEDURE DIVISION. 
000042*************************^ 
000043* <<^$S^MyY 
000044********************************* 

000045 IDENTIFICATION DIVISION. 

000046 METHOD-ID. 'checkTransaction'. 

000047 DATA DIVISION. 

000048 LINKAGE SECTION. 

" -(2-13) 



000049 01 


Tl 


-ft) 




— K. 


000050 


05 


Tl 




PIC X(l). 


000051 




88 


Tl-iiAP VALUE '1'. 


000052 




88 


Tl-H#f VALUE '2'. 


000053 




88 


Tl-B'Jf& VALUE '9'. 


000054 


05 


Tl 




PIC X(6). 


000055 


05 


Tl 




PIC X(30). 


000056 


05 


Tl 




PIC 9(7). 


000057 


05 


Tl 




PIC 9(7). 


000058 


05 


Tl 




PIC 9(7). 


000059 


05 


Tl 




PIC 9(7). 


000060 


05 


Tl 


-ttA$te^-K PIC X(5). 



000061 WORKING-STORAGE SECTION. 

000062 01 W-^r^^7— 77? PIC X(i). 

000063 88 1/33— K£><9 VALUE V. 

000064 88 K*L VALUE '0'. 

000065 -r 

000066 PROCEDURE DIVISION USING Tl -ftlt^^jEl/^ — K J_ 



(2-13) 



000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 



INVOKE O — ?5E^-^^^jE entity YecordExists' 

RETURNING W- 7r>f^7- 75^. 
EVALUATE Tl-#LHE# 
WHEN Tl-ig*0 
IF U=2— K&L 
THEN 

INVOKE O-flE/S-^^^^iE entity 'update Record' 
USING Tl-£«-***tejEU=« — K 

END-IF 
WHEN Tl-H#r XI — B'JBfe 
IF lx=i— Kfcf9 
THEN 

INVOKE 0-flEi*-^^4$jE entity 'updateRecord' 
USING Tl-aEH^^*iEU3— K 

END-IF 



END-EVALUATE. 
EXIT METHOD. 

000084 END METHOD 'checkTransaction'. 

000085 END OBJECT. 

000086 END CLASS &1*^;*^jE session. 
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^r-f/V^i-.ZMEN.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. fttt -^*^jE entity INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 
000007 

000008 IDENTIFICATION DIVISION. 

000009 CLASS-OBJECT. 

000010 PROCEDURE DIVISION. 

0000 1 1 ***************************************************^ 

000012* ty^-MvY 

000013*************************** 

000014 IDENTIFICATION DIVISION. 

000015 METHOD-ID. 'create'. 

000016 DATA DIVISION. 

000017 LINKAGE SECTION. 

000018 01 L-ffift-^**^IE entity OBJECT REFERENCE SELF. 

000019 WORKING-STORAGE SECTION. 

000020 01 W- fiE«-^**^IE entity OBJECT REFERENCE SELF. 

000021 PROCEDURE DIVISION RETURNING L-ffiK^^IE entity. 

000022 INVOKE SELF 'CBL-NEW' 

000023 RETURNING W-fiE^^^IE entity. 

000024 SET L — ?£^-^*^iE entity TO W-?5E*-^^^ IE entity. 

000025 EXIT METHOD. 

000026 END METHOD 'create'. 

000027 END CLASS-OBJECT. 
000028 

000029 IDENTIFICATION DIVISION. 

000030 OBJECT. 

000031 ENVIRONMENT DIVISION. 

000032 INPUT-OUTPUT SECTION. 

000033 FILE-CONTROL. 
000034 
000035 
000036 
000037 
000038 



SELECT Ml-&m-?**7T'(/l' <— (2"11) 

ASSIGN TO "SYS030-DA-DK-r 
ORGANIZATION INDEXED 
ACCESS RANDOM 
RECORD KEY M 1 - iSq"q^ — K 
000039 DATA DIVISION. 

000040******************************************* 

000041* -Y>**>;*^$t 

000042***************************************************^ 

000043 FILE SECTION. 

000044 FD 

000045 01 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 



05 
05 
05 
05 
05 
05 
05 



PIC X(6). 
PIC X(30). 
PIC S9(7). 
PIC S9(7). 
PIC S9(7). 
PIC S9(7). 



Ml-ttAjfca — K PICX(5). 
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000054 PROCEDURE DIVISION. 

000055*********************************************************** 

000056* -r>^^>^-^y^K 

00 00 57*********************************************************** 

000058 IDENTIFICATION DIVISION. 

000059 METHOD-ID. 'recordE xists' 

000060*********************************************************** 

000061 DATA DIVISION. 

000062 LINKAGE SECTION. 

00 00 63 01 L - jffi a — K PIC X(6). 

0000 64 0 1 L - 77^^X7-79/ PICX(l). 

000065 88 U-a — K*>9 VALUE '1'. 

000066 88 ua-K<CL VALUE '0'. 

00006 7 PROCEDURE DIVISION USING L — SS fi 3 — K 

000068 RETURNING L - 7 r 4 tV .n y — 7 7 ^ 

000069 OPEN INPUT Ml-fii^^^r'f/l/ 

000070 MOVE L- fSjtPo K TO Ml-Si&^K. 
0000 7 1 READ M 1 - fiE$TX^:7 7 ^/u 

000072 INVALID 

000073 SET U3 — KfcL TO TRUE 

000074 NOT INVALID 

000075 SET l^=i — K*>9 TO TRUE 

000076 END-READ. 

000077 EXIT M ETHOD. 

000078 END METHOD 'recordE xists \ 
000079 

00 00 80***********************************************************' 

000081 IDENTIFICATION DIVISION. 

000082 METHOD-ID. 'updateRecord'. 

0 000 8 3 **************************************************** *******' 

000084 DATA DIVISION. 

000085 LINKAGE SECTION. 

000086 01 Tl-i5ES7^?«ElU = - K. 

000087 05 Tl-SaiE5) PICX(l). 

000088 88 Tl-igttl VALUE T. 

000089 88 Tl-3?$r VALUE T. 

000090 88 Tl-ft'lRfe VALUE '9'. 

000091 05 Tl-jSi&^-K PIC X(6). 

000092 05 Tl-ffia* PICX(30). 

000093 05 Tl-SaSt PIC 9(7). 

000094 05 T1-3ISS PIC 9(7). 

000095 05 PIC 9(7). 

000096 05 Tl-S2£flEffiS PIC 9(7). 

000097 05 Tl-(tA5t 3 ~K PIC X(5). 
000098 

000099 WORKING STORAGE SECTION. 

000100 oi fcmm&. 

000101 05 W-h7^f^>3y*- PIC X(6) VALU E LOW-VALUE. 

000102 05 W--^**=*r— PIC X(6). 

000103 01 77^. 

000104 05 7 7 ^^T77fl PIC X VALUE '0'. 

000105 05 77^/^1 77?Z PIC X VALUE *0\ 

000106 05 «lI^T77^ PIC X VALUE '0'. 
000107 

000108 PROCEDURE DIVISION USING Tl-ftffi-^**t£iEi- = -K. 

000109 ±*&J£. 

000110 OPEN I O Ml-ft$7X^77'f/l' 

000111 PERFORM & ffi ^ * * IB A 73 & M . 

000112 PERFORM IB & ft * * A 73 «t S . 
00 0113 PERFORM l^tr^^hn— /H& S . 

000114 CLOSE Ml-ft^v^^r^l' 

000115 EXIT METHOD. 

00 0 n6************************************************************ 

000117 M fcf > Hp — ^ 3 . 

000118 IF (W- h7>f ^->a>^- = W--^*** — ) 

000119 THEN 

000120 PERFORM ^ ftk M 

000121 ELSE 

000122 PERFORM f» 7 is 9 > a > & 3 

000123 END IF. 
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000125********************************************************************* 

000126 

000127 IF (W- h^Vif = HIGH-VALUE) 

000128 THEN 

000129 MOVE TTO ^1^177^ 

000130 ELSE 

000131 EVALUATE Tl-j^IE^ 

000132 WHEN Tl-If 

000133 PERFORM 3g S?r 4& S 

000134 PERFORM IftK^^^tiJ ^^1 

000135 WHEN Tl - 6«J & 

000136 PERFORM 8»J Rfc & S 

000137 END-EVALUATE 

000138 END-IF. 

0001 39********************************************************************* 

000140 h^yf^yg^fei. 

000141 IF Tl - iiJJD 

000142 THEN 

000143 PERFORM i£ ttl & S 

000144 PERFORM £ AD #r ft ffi ^ ^ * ft t> & S 

000145 END-IF. 

000146********************************************************************* 

000147 3g£r*&S. 

000148 MOVE Tl-SSi^ TO 

000149 MOVE Tl-^^Eif TO 

000150 MOVE Tl-?l^t TO 

000151 MOVE Tl-56i$^ TO 

000152 MOVE Tl-I^i5E$t TO 

000153 MOVE Tl-f±Aft=«-K TO Ml-ftA^t^-K. 
0001 54********************************************************************* 

000155 iifloj&s. 

TO Ml - jSjira^"!'. 

TO mi - m&% . 

TO 
TO 
TO 
TO 
TO 



Ml - A£g . 
Ml-«ft.^. 

mi - mwtE®.&. 



000156 
000157 
000158 
000159 
000160 
000161 
000162 



MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 



T 1 - ft & ^ - K 
T 1 - ^ 

Tl - 31 3 ft 

Ti-isa^ 

T 1 - S !» £ ffi ft 

Tl-ttAft^-K 



m i - 

m i - 3i a ft . 

m i - « a & . 

Ml - 
M 1 - ft A&=* — K. 



000163********************************************************************* 

000164 iifluj&f ^ tel. 

000165 WRITE Ml - feS^^^^^-K 

000166 INVALID MOVE V TO feI«IT77^. 
000167********************************************************************* 

000168 fcrftEt-^^ffl^&Jg. 

000169 REWRITE Ml-ftlf^^^^-K 

000170 INVALID MOVE '1* TO *&3S^T^7^. 
0001 71********************************************************************* 
000172 

000173 DELETE M 1 - £ W- ^ * ? ^ => - K 

000174 INVALID MOVE V TO *alHT77^ 
000175********************************************************************* 

000176 lEA^&S. 

000177 MOVE Tl-fci&^-K 

000178 TO W - h7>f M1-S5&3 — K 
0001 79********************************************************************* 

000180 m&m-^^fAtitem. 

000181 READ Ml - ftlE-^^r^ 

000182 INVALID MOVE V TO 7r^^T75^2. 

000183 IF (77-<^^T77^2 - V) 

000184 THEN 

000185 MOVE HIGH-VALUE TO W--^*** — 

000186 ELSE 

000187 MOVE Ml-iSjiS.3- 

000188 END-IF. 

000189 END METHOD 'updateRecord*. 

000190 END OBJECT. 

000191 END CLASS £E#-^***£jE entity. 
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